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Visual Basic 6.0 



L^b»o ^1 d^i^kiKji ^1 j^i y> Software Anylsis jj^o- 

jj>- jjA«sJI ^jjJI (jj jJ* 'til 'rij*^ Bs-LijI t5j^ S?^' ^'A^' (j' 

. ^LjjjJl 4J!>Li- jj>Jij-^ S?"*^' '■^"^"^^'j '■^jJJ "^^^^i*^ J:!-^ » 

(jj tjj>- ^Jis JL^ J jl Lki>- k±jjj^ 4jlj> J 4j^ g -.i. ; JjJjCJI 4jjL5jl -» 

. 4jIjjJI Jj5 

Cli!>L>-jil U t |»LtuJI Jj£ '■^Jri-*" L>» ' jjlAill L^jS (_5jJ i^^I 0^_j^uJI 4jJjj^ (jj j5^Lj 

. dUj jJ^J diULxIl 4ij jloloj "(^LjLu 4jj5j |»UajJI JjJ^ Sijjw dilj^ 

■ 

I. CliSjLo Sjlj^ ^^'ri'^ ^^J^ 'LiuL — [aL^ Ljl>^jI LaS^ — iUJi (jjLj f.^*^ I— 3^-^ SjjjJI ojjs j 



. 2^Lj jjJI 

. S^^^l ^LojJI cjLjjiS^ j — jjS^Lj ~ j^3^ ls^'j 'Ij-^Ij (^^' 'y** ■'tI*^ * 

http://www.netnann.vn/unescocourse/sys_ana_des/21 .htm 

ERD J DFD ^^^ji^j^ u^i ^ j^ui hj\ ji ^ cjuJli ji cjI^ iji 

. L)jLjl>-I (j-uJ IjJj t SjjjJI ^^J-*' j Ljjjj..ji L>^J ' 1 0 ^cl Lo 

DFD 



p m 

. ^LajJI JjJ^ j L.^j.>o — icLAjJI diULu jL>-jl ;s 

. L^jj + Lftjjjj + <LcLiuJI ciiULu : SjJaiJI si* j k—ijlLw 

. ( ^LijJI (jj JJ^ i^jic Jjjuiu iLoLSJI s-lj-£jl 4jia£j ) ipLiu ^^ic tijji "UIaC JjJiiaU -sf 

. icLajJI + s-lj^l 4jia£ >^LjLu : OjLifcJI sla J i—ijiko 

. l.g-jJ.C tIjjJIj CliLiaP + ^Ijj'^lj (jjjjjilj ^LiuJI CliULu : SjJaiJI si* j k_jjJIxo 

. ^Ijj'il jiyi^ o^j^ 

. Sjlls J I ^_jjJI j^j*^' ij^^ » 
. 4ajLJI cjLIojJI t_iLcI J Liul (_3l>Jlj Jjjjilll JLl^ SiLi'il ^ L5j 

. 4J!>L>-j CjSjU ^^j~JI loLojJjwj . diULuJI Sj^ls 4_)Lo^ -» 

DFD 

. ERD 

11 1 " r ft i 



ERD 



. ( ^Lajji icjj^ jjjj j^ij jjjj ) ^Lajjij (jjj OriG-Msny sjmp -» 
. ( ^Lojji (> icjjjf^ s?-?^ "^'i ^-3^ ) ^LiuJij ^ijjSfi 0n6-M3ny sjmp -» 



Tb_Category 



Tb_Facl(xy 



ERD 



Tb_S€l_Bay 




has 



M 



Tb Products 





Tb Users 



Tb_Factory . j^jj^i jjju*. : ^ji 

Auto Number Number » 

. ^laio - Primary Key ^ 
Field Size Ja*ji j^j ^ ^ - Text ^yji : Name * 

Tb_Category j^^i . ^i^^i jja> : Uiij 

dills' t ^UJj — Auto Number Number . 

. ^\3ju - Primary Key ^ 
Field Size Ja*ji j>j i - Text ^yji : Name * 

. "ilia r « Jjjj 6' t_5*J^ 

c / ^- Yes/No (> View I cijL>J |JL> Liul ^Jlu2>1^ 

False 

Tb_Product ji-^^i . ^UuJi Jjjj*. : bjij 

dills' t ^UJj — Auto Number Number . 

. ^\3ju - Primary Key 



Field Ja>ji j^j ^ ^ - Text ^yji i> y>j l icL^i : Name » 

•iSize 

jUkjfcj (. - Number (> t Iplaji ^^j-su jl jj^i Factory 

Field Size 

Field Ja>ji |*j>^j t - Number ^\ Category . 

. ^ijj"^! jjjj><j ll*"^ i^ri-^j ' J^j^ ^^^''^^ ■^"'^ Size 

Price » 

dUjj ( Double - ^jj> ) ^ Field Size ji^ji j>j . - Number 

. ( 0,0 Mlo ) jj-xiLU i^jiJI 4j»-b'i 
j! ^*jjJI CjUjaJ Ujl> i>aAl) jf Jjjj~< (jjJIj ' icLaJJ ^jSlI JJaJI jAj COUPt -» 



(jj 5-1 j-iJI ciiLLolC '•"Jri-Vi ' "'J^J ''^ ui3^ jl Jj (Ja>JI lift : ioLa ilk^-Mo 



Box Count * 
. j^y, .^^^^ jjj: : (> dUi^j t - Number 
Tb_Sel_Bay j^"^! . *i jiJij oLUc jja> : LoIj 

isLal |»JL) 4JL3 ^LajJI (jJ I" Ijlj ' JjJJ>JI liA J icLaj 4jia£ Jjjj* -» ::: » 



Auto Number Number « 

. ^ - Primary Key 
Field Number Product . 

. ^lajJi Jjjj><j ul^*^ "^-^j ^^^-ir^} '• ci^j^ ^^^^^'^ '^'^ ^ Size 
ja* jj . d^y - Date/Time ^\ : Date * 

. Short Date ji^w Format - 

jl ^^^1 CjLLojJ Ujj u^aAjL) jl Jjj^ S?"*^'-? ' 4^'-^>jJJ ^i^' J^J Count -st 

Number ^ (2>» • ( icLajj ) oia (^if" ^^1^-**' (jJi"*^"^' Price sf 
buju jj t ouL. - Byte (> <G5j Number (> ji* ^ Kind « 



^ ) jj^i ^yji ^ jj^i ijuji jjoj - Yes/No 

. ^bJI ^1 ^T^bJIj ( Mio 



Tb_User^'^i . jj^jt.>j..a,ii Jjjl> : LaoL> 
. ( Rigistery (jji-cjojji ) |»iiuji Jj>^ j jf ^^-aj jii-w j |»jaJi 

: J_jL>JI 

. 5jL>- ^0 ^^-^1 Jy=ij Text . |»jiijujii : User-Name n 

Password . 
: Name , 

. jj^is ^ (>° f^j ' i_43Lf]i : Telephone st 



jJ^i lT^ ■ '^'■^ ^-t!-^ J_JA>- j 4i!>L>-j JljJjJl (_i(L^lj t (_4jL^I (jjj-io J~iaflJ -» 

: More . 

. SajLJI SjjjJI J LIoJjC; Lo5 ,j»u~*S^I ^jj (jj cjULu oj^li J| SajLJI JjIjj>JI 4iLiL |»_jAj u'^'j 

Dao 

. Access 

Db1 I ciAj>J cjULu oj^Ls s-LijL ^ Microsoft Access 

: |»j (2>»j t ( Tables JjIj->- ) jUii-u dUj 
dUj jjvjt Create Table in Design View - ^^^i ^i,^ ii,^ j jj^* .lsji 

: jLajL»lj (jSJj CjIjjjJI (jj SajLJI iljjf-"^! J L^i*.C 4j«j5J LLijjtj t^^'i '^'^'^LxJI ^y^hj^ dilj Jaj 

Relationship Tools 

: 4J1jLII JjIa>JI 

Tb_Product - Tb_Factory - Tb_Category - Tb_Sel_Bay 
. ( Show Tables - jji 

Ja* ^ 4ju, Tb_Factory (> Number ji* ^ ^jUi ^3 ^.i a^^i 

. Tb_Product j^j^i j Factory 



jjA* J Category ji^^ ^ Tb_Category cy> ^"^^ i-^i ^>Ji 

. Tb_Product 

Tb_Product j Number (i,^^ s^Siij iumi ii^uji 

ol>jl Number ji^i ^^ui ^ Tb_Sel_Bay Jjj^ j Product 

Product 

Exuclusive 

. 4j5 c>>ri^ >i!Jj jjvi ' Securty ^ui - Tools c^i^ji 
. VB4ARAB ^ j-Ji iLL^ ^uLJi 

^ 

k::tL>LMJ( ftjNAli j^j-sJ iltLoij^f ^ dbl.zip faijU( t tl h < ^^i 



. Visual Basic 



. IVIenues : Vji 

(jjj5u 4jjLSjl ^lilLj Jaj^L ^1 lia |»L^ 4i jjw ^ (jSl JjJ.>oLII oIjaI (^j^I (jj 



OJ^Ij 'iLuaiojj ClJL^o ^L-^l (j-o 'l.^Li^u.o k^yoS^ ^t.o->'J ^^JsuLmU ^L-oJI 

: ^LUI 

. ^L^l — ^UjjJl — ^l.i.>-.'i....i'il loLajJjO' — ^LaJI {j^jS' '. (_iLo 
. jjjj>- ^jj — JjJ^ Jjjj — SjjJ-> icLiu iiiLol : 4iLil 

• ( i>ir*^J)^ 

cjLLoc — ^Ijj"^! 4il5 — (jjj Ails' — ^LiJI 4iLS ) ^^.^ — !-ljJ< ijioc — ^ "^jJ-** : |»L^-o 

. loLwjjiII loLioAj |»51>aJI — ( tlj^l >Jlil.;J.o.C — 

. ^LAjJI (2>* >— '■•vjJ I : k±ij>ij 

— 4ji3ljjL>'l iivw.u ) ^^jLLijL^'^l ^>jjJI — Jj^' "Lois jJJjij — ^J.*^! CjLojJaj I lOljjl 

. 4jujL>- ill — AjijUaJI jj.g-'Vj — ( sLjJaLjjL^I <L>v-u jI^_jjjL.(I 

Project - Add Io^ls j^u^ ^^y. ji Form 0 jiU 4iLil jLjl>o LoJjlC 
LoIj30u.<I (jjj t ^jLaill jLSi^f (jj jjjjJI ^^ic iSy^ 4^Li Ja^^b dijli t Form 

Border Style lu^i^i J'^^ i> jisl^Sji ji j^^i dus^ uiu Form 

None - . 

API jij. 



. '/ ^ * * "^-^ 4ju^L>. ojiU ^^^Ic Jj..^.'>J I (jjj jj>jj| li* i^jic La^jv^jJ API JljJ 

dLoj Ji^^aiii dU (jjj t MDI Form jI^l ^.i Project (> sjiui jjj ji» 

MDI (jj jjS^I |»Ij.>JL.("^ \J0J3ji (jjiji (jJ (*^ljJI Jj t ^jjJI lift (2>» ■'=^ Sj^Ij SjiU SiLiI (^j~< ^ 

? i^ojL-vj..>u ijiij MDI jiljj ^ u 

cdIjL^.IVIj ^^ic (3j~< i^yj>3 iji ojiljJI a'jA (jl ^J^"^ ' 4Jui>L> SjiUS^ SjiUIl si* |»j ^ jL>^ 

. Jj"^! SjilJJI Ji>-lj (3 jJ>-l jiljj S jLc (_5 jJ*-"^! cjLyibxjJI Ul . . . Jaiii 4j«j j-«< 

. LfJ-i-lj jiljjJI 

. 4JL>JI oia J Reslution 

: MDI ^jUj 

isLiiL jjSlI lift ^ JjLjKaJl ,jL<Lo)lLj PictUre Sbl (jj^ L^jIp cjIjjI (jI (j<L«j -» 

. Picture jj^ij Ui,^ ^1 ci^i^jSji 
. - net. J L^!>b 
. Uj ^l>ji MDI Form ^rjUj ^u-i 
. MDI Form ^ New ^1 . 



WindowState 

. Maximized 

True 

. iVIDIChiid 

. JoAjoJI JiL>'^j ^oUjjJl ^J-;.»...ti." i—j^y^ 

. Lajjjj (.5^' f'-^^'^ l"'^ SiL^L |»^j2ju»i IjJ ... l.^-;.l.g (Jjaj (jj-^ (_s^'j UulJiLi ^^^a sia 

. JsuajLo iUia ^LjJI JajljJI ojLj ^j-*^' SiLiI J ^jjJI JjSj 

http://www.opendirectorysite.info/121 .htm 

. i-jjaJJ >d.l...i.;.' JljJ^o^ (_5JJ>J>J ^ ^LuO 4jt5Jj t ij^-"^. ^3 |3^IjaJ| L>>jJ >l.u.'iS dJuiS^ jjj 

Index j^lj ji—'lj AjjLS ~ ■^^'^^ o^tJ*"^' ~ ^LiJI (jj 4JI LaS^ 

(> 4j£yJI ( ^lj_;jJI J_p- ) ifuli li-bj IVI Filel laJu-"^! li-b i_iL) iojlS (^,1 vIjj^ jjJim 

lndex=1 V File ^"^ii i>-h (^ujx;) 1^ ' o^^^^. 0^3 File JjSji iasini 
. lis ^"i" j ^^=y~^ iJbf^ J Index ^ jjboji 4jaj5 |xUju . lisj^j ... 

. LLk^Ujj ^ -^^i ^ >— 'J.C I jj» IjAj I. °sjjjj>- cjL^Lti jL^I >>j->^ 
. ;_>-«jjJl lift Jjl J UUj^ |»jI_jHJI SiLiL (j'^ll |»_j2j~< 

Fl L ^j.>jj Ctrl"'"F4 jjlo 4_t..«<jjjji |»l.^jJJ "Iajj^ji cjijt.^.'i.v'^i (^axj 4iL^L |»^^ p 
cjijLajL>-'ii ^joju^ t s-ij^ Ctrl"'"B J "^J-**! Ctrl"'"S ^ cj1.o.;J.».'iij F2 j ^lj^i 



iu^i uui ci;Ui^i j^i (> Right To Left = True ij-^ii^ iuu^ ^ 



p 



. Click ijb Index ^ e5yL>o Index 



(jjJIj . File jj J ^LjJI j_jSJI i 4j^L>JI ola |»lJ3^Ju^L LL*-"^ ijjikll SjLaJI JjlC ^^^xLuu-uj 

. Index 



(Private Sub File_Click(lndex As Integer 

Select Case Index 
Case 0 

"MsgBox "View Product 

Case 5 
End 

Case Else 

MsgBox File(lndex). Caption 
End Select 
End Sub 



Jiiii inlttrtli ^ <^}^ CiLLSjXi ^ programme.zip t rtiU iLftJUx^ 



: ^IjJI J5...tJL ^y^j t ^LjjjJL i^L>JI jiljJJl isLaL |»jAj oj-x u^-jJI lla J 



ii 



. ^u^i : AboutMe 

About Project - Add Form 

. Dialog 

. System Info _. 4-^l>ji ji^Sji t l^ui ji^Sji 

. iL^'i 4ja»uUL0 \.^^jJl>j |>_^^ k^j^ij 

Frm_splash 

Sjj Jaj 4-jiLiJI s-Lii-'i CjSJj ^^ic (_5jjl>o (ji Jj "ij La5 t 4-iiLiJI oiA J Cjljj'il ilsjjj] j-f^ (jis 

. Bj^jjv icLiu isLii : Frm_Add 
: Frm Add 2 

. j^^SJL ljL>-*^ l.o.g-'i.i.t ijjij^^ L ^jjjjj ^'j^ AiLslj ^S-'>."iJJ 4^LuJI ojA (_>j.iigLV.l.j 

. u^^i : Frm_Calc 

u 

. ^UuJi j^jjo- iiiU : Frm_Edit 
. .lyji ji ^1 ^LLs. jjj^ : Frm_Edit_SP 



MaskEdBoxsbf 

Jn.i».. AI L |>^^ I..^Ji2L^*^j I. 4jj.^....i.; 4l^jil ^jjsyojiW J.S!^ |3.5L>uLII 4_i^L>- BIj*^! sjj» IjJ jiy> '-^^i:<->- 

Ctrl+T ^ 

. k*"^ L^iji^o^i 4i;> ^ Microsoft Masked Edit Control 6.0 

Frm Find 

Ctrl+T 

. k^-i ^ij^i ii;> ^ c Microsoft Flex Grid 6.0 
. 'xL>^ rtf 
RichText sbl 

jsj Ctrl+T ^^ic JaiJjL L^JisLi'ij t j3j«»ujJI ijijCjjs ^j^y^ SiLiI oljSfl oi* LjJ ji^J i-iAJJ^ 

Microsoft Rich Text Control 6.0 jLai>-L. 



Frm Info 



■1 I M III <fT u«*l*^ Mtarf ■>4*lM.>aI 



jy^ji : Frnn_Login 



iiui iia> t ^u^i jjSii aji\ ^ iia> iji : Frnn_NewUser 

Frm Printer 
. ipUuJi ^jUi : Frnn_Report1 

Ctrl+T 

^ ... (Microsoft Chart Control 6.0 (OLEDB jIu^l 

. ^ly'ii^ji; : Frnn_Report2 
Frnn_Report3 
^^ji^^i : Frnn_Report4 



: Frnn_Sel_Bay 



.lyijij ^1 ^<L^i : Frnn_Sel_Bay2 



Frm Show 



Frnn User 



4iU":ii jl 4j_^i ci.Li«ji J jUiii^u 4-:s,u : Frnn_Wait 



ProgressBar sijf l i^uji 
Ctrl+T 

(Microsoft Windows Common Control 6.0(SP6jU^l 

: IVIDIFormI 

Tool Bar siji 
StatusBar sbl 

— — ^ jijj*- jio 4jjIjj>ji jiljjji (> ^ jjtj |»j2j CommonDialog sijI 

Ctrl+T 

Microsoft CommonDialog Control 6.0 

\^{^ ^Uj ikL^akj) "ijyaj ^ jC j ^m l ijf^ji^ tCUl (jjb <LojUJI il>-j^\ j (J^^ialj LoJjlCj 

. iLL^ 

jS (jftj jJ |jl jiSj "i! t ^LjjjJI jL« cjULuJI SacU SiLab |»5 Ij^cLoi (j'il jlo st -s » 

+ JlJJ>^J3 J!>L>- (jj ail (jjb ^LjjjJI 4j>^jjj s-JjJI |»jL) (_Sj~/ 4jj1aII jjjjjjJI iLjL.j jjLo 

. Dao 



Visual Basic 6.0 



p 



♦ 
♦ 



■u-V-U 



-05 (J^3-aJI (J_ij>t_mj 4_ijjLijj p 1 1 ^ 

. ( f\j \\\ llg ^1 ; H ol_J_o_C ) i^L^-O 4_<jJL9 
. plj \\) llg ^> ; H ol > I <J-C ^ ^ >JlH 

. d->— ijj 

f 

. fLjLjLjLjLJI A/^ vuj tl/^ oLjljI_L::^L_>^I 

DataReport i^lA^tjLjjjL ^ rl ; II3 oj^^ LIaJI 



vr 



4i 




loLklaxj I— ij*'' (j^jjJI ^ CjiSjLo j^j^l ^Lj^ ASf^jM ljjL> I u^j-^' ^ 

. CliULuJI OJ^li ^ JjLwjLU ioj^UI Clil.u5.1l 4iLiL |n_ji!j i_3j~< (j-'jjJI J i_«J-AL.( Lo5 

^LjjjJl lift Liul^ ^\ 4ljjls}\ DSO CjUUjJI J^IjAj i^L>Jl CuLaStil i_4J,iu~/ dlljJ 

Ado uf 



jy>.^^'i ... ij3yi\ d^LuiSLii 5-5Li djj j-^Jii-, ... Refernces Project iasii 



. viL><^ JljJkaAjJ <U..^ljjl2l CjLufLo ^jl 

Microsoft Dao 3.6 Object Library 

: ^Ul JiuiJI J 



References - Projecti.vbp ; 



Available References: 



^y] Visual Basic For Applications 
0 Visual Basic runtime objects and procedures 
0 Visual Basic objects and procedures 
^0 OLE Automation 

I y^afe^^ 

yj MicrosoFt Data Report Designer v6,0 

0 Microsoft Data Formatting Object Library 6.0 (SP4) 

E Microsoft Active>i Data Objects 2.5 Library 

L! IAS Helper COM Component 1.0 Type Library 

□ IAS RADIUS Protocol 1 .0 Type Library 
LJ 3D Studio MAX IPTex Type Library 

LJ AAC Decoder 1.0 Type Library 

□ AAC Encoder 1.0 Type Library 
n|Acrobat Access 3.0 Tvoe Libr| rv 
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Priority 



Help 



p Microsoft DAO 3.6 Object Library 

Location: C:\Program Files\Common Files\Microsoft Shared\DAO\dao36C 
Language: Standard 



ji - 8jj6 L^yi^o ^1 Properties IVIethods 

. JL-/S!l J (;>jjL<uUJI JI Dao jJS>-\ 4jjL«JI 4ajUJI (>j F2 jj ^ iajvAJL |»5 — U jj^ 

^vJjIaII ^JS: ,_jlajJI iajUJI iSy^ LajS t 4-u5.1 1 si.^ 4j-^jJI ^Lftll iojUJI iSy^ 

. 4^ ^1 



|<AII Libraries> 
I Create 

— Search Results ' 



"3 
"3 



Library 



Class 



Member 



ll\ MSComDIg 

Project 1 
^ Project 1 

DAO 
Vi MSComctlLib 



FileOpenConstants 
ffl Frin_Find 
ffl Frin_Sliow 

EI 

23 Workspace 
iiS) Listltem 



B caiOFNCreatePrompt 
1^ Create_Flex 
v% Create_Flex 



CreateDatabase 



1 



CtPdtPCidtabase 
CreateDracilmacie 



Classes 

SSiDBingine 

ilf DefaultCursorTypeC 

^ DirListBox 

lip DisplayTypeConstar 

^ DISPPARAMS 

® Document . 

& Documents 

isp DragConstants 
DragModeConstants 
DragOverConstants 

aP DragOverConstants 

i=P DragOverConstants 

siP DragOverConstants 

(=P DragOverConstants 

(tf) DraviiModeConstant! 

OlP DraviiStyleConstants 

JS DriveListBox 

ip DriverPromptErum 

(=P EditModeEnum 

tip EditModeEnum 

& ErrObject 

® Error ^ 



Members of 'DBEngine' 
BeginTrans 
CommitTrans 
CompactDatabase 



CreateDatabase 
CreateWorkspace 

^ DefaultPassword 

1^ DefaultType 

^ DefaultUser 

S* Errors 
Idle 

1^ IniPath 

1^ LoginTimeout 

» OpenConnection 

* OpenDatabase 
1^ Properties 

RegisterDatabase 
^ Rollback 

* SetOption 
1^ SystemDB 
Ef Version 

^ Workspaces 



Function CreateDiitiib<ise(W3me»i5s String, Locale As String, lOpSon]) As D.italiase 
Member of DAO . DBEiKiine 



Create 

jl CreateDatabase i^^ ^ii^ 6- 

(jj DAO jljli-l jMi- (jj iliJVjJI i3:}^-^ dl'tS-o.; Lsul . SJIjJI oi^ ijjikll CIjIjXuijLjJI 

. i±a:>J| ^jj CuLoSllI Lull 

MSDN 

. Ijujju jJi Module J^j^i oijyii>4 C)^p:i 



JljjJI Jl J_^jJI ^^^iLuu-u k±JJ^ Public ioU 4jj>jjj Sj^j ^^j>ui_^I i_iUl J_jjjyil JJVJ 

^ 4Ji>-ljj Main ilb l.u5.o.i Uj! U5 t ^UjjJI J (jlSlo (jl ojjj>-_^I 



. Module ^ (>,j New ... c>h^\ ^jUi (if jj^lj^i Module ^i^^ 

. Module Cl;L;_jI*j JS ^ ijj, ... jI_^SJ| LlaSJ 4-i,U 

Public Sub Maino 
End Sub 



Startup 6* ^ Project - Project properties 

illJI (^_^ >i!Jjjj SubMain (i^i^- Object 



Pro)Cctl Project Propertiei 



Generei \v\ttie | Compile | Convonent | Debogging 
Protect Type: 



Project Name: 
fprojertl 
Help Fie N«ne: 



I Startup Object: 
■^1 I Sub Main 
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Project HeJp 
Context ID: 



-J 



Project Description: 



I 

r Unsttefided Execution 
P Upgrade ActiveX Controls 

r 



- Threading Model 






1 J 


C Tl-iresd per ObjKi: 




f Thread Pool 1 1 ; 





0*; 



] 



Cancel 



Help 



: ( but IIIJI ^jli^ ) ^^LlJI 



Public D1 As Database 
Public D2 As Database 



p 



Public T1 As Recordset 
Public T2 As Recordset 
Public T3 As Recordset 
Public T4 As Recordset 
Public T5 As Recordset 



Public Folder 


L^.^^ ^ VB4ARAB 




JjuLj Lu£L>l ^IjL>Ju>< 








Public Const PassWord = 


"VB4ARAB" 





ii 



V V 



m 



JjlC l.'uiLo.; 4JL>JI BJA t ^^j^"^! JjJJfcJI CjLojJaj ^^^jic (_5jjl>o jjAXo jJ> 4jJ| ^I-*-*^ J-^' 

: ^_^Liji j5.>tJL dUjj ... cjLojLji j^i tjj>- j5 jioj =-ij->-i « es>^*j' Arr3y 



Public lnfo(5) 



Public Enum arable 

arable = vbMsgBoxRIght + vbMsgBoxRtlReadIng 
End Enum 



: ^bJI J<LiJL 



Folder = App.Path 

If Rlght(Folder, 1) <> "\" Then Folder = Folder V & 



If Dir(Folder & "db1 .mdb") = "" Then 
MsgBox 

vbExclamation-s 

'Here We will Create The Database 
End If 



: Jsul ji\ lift ^^ic t ^jjjJl (jj iLJ-^l BOA ^^Ic CjULu OJ^U s-LSuI i_jjiwjl 4j«J>-I ja .il't5.o.; 

http://www.c4arab.com/showlesson.php?lesid=2332 
http://www.c4arab.com/showlesson.php?lesid=2333 
http://www.c4arab.com/showlesson.php?lesid=2334 
http://www.c4arab.com/showlesson.php?lesid=2335 

Sj^lS Jj-^j 4JL>- jj ^LjjjJI ^ J-jsI^jlLI 4JLjj 4J J ^ ]^'< (jL ^.'iS-' ^jj-^ ojjjJI oi* 

: J5.>tiJL ■^^i'^ t-ij-- >iUjJ t cjULuJI 



If Dir(Folder & "db1 .mdb") = "" Then 
MsgBox 

c "ci^uLJi sj^ls (> Si-j^vbExclamatlon' 

End 
End If 



: ^LaII J5...tJL cjULuJI SocliL D1 iajjj t_ij~< dllj 



Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
&"Db1.mdb(" 



Password 



Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=VB4ARAB(" 



I^IjLII (JiL..tiJ L jj"^! js-vju^ i—ij-j IjJ t j«»JI <LoJ^ t5_J^*-*^ CluLj LjyjJ (ji Lajj 



Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=" & PassWord( 



: J\3i\ JiLsJL dUjj D1 J Sj_^_^I JjIa>JL T1 ,T2,T3 (>j 



SetT1 = D1.0penRecordset("Tb_Product", dbOpenTablec 

Set T2 = D1.0penRecordset("Tb_Category", 
dbOpenTable( 

Set T3 = D1.0penRecordset("Tb_Factory", dbOpenTablec 



t Delete ^AddNew jio Dao_. i^L>ji jjui lui ,»» 

J Ado ^ 

(jSJj |»jL«JI (_)jjjJI J L^JijjSj ^^ic tjjjtlLj t^^'j ' 4_ij>.Lju3'^I 4-jiLiJI jL^I ^ ojJa^ j^l 

. UjL^I jjf lis 



Frm About.Show 



. J II >f>l n^tl ^ JbjjJl CtLiJjJlf progl.zip «.ijUI ijLJliaidr (9-d 



^ ♦ ♦ 



About 

. BrderStyle None-. 

Liul (jSjj t LjJ'-»^ ^15^ j-=»-L< '■ijj^ fjj*" -Ki^*^ Shspe SjL* 4JL>JI si* J 

^ f.jf^ ^ diijj BorderStyle = 3-Fixedialog 

. ControlBox = False 
. Caption 

Startup 

. Position = Center Screen 
jijjL vJi^ Splacli Screen jii^ij t Form ^ (>i Add ... 

■ \^ 



p m 

I— u.^.' IjJ^ 4jaj>tU AiL^^iaj <L^LuJI ^:i'.o.a..^ jiUj c l.^-oj-o..^." ^ i_>jl^l Llo ... IjiXJ^L^ ij*^' Jjju 



(jjjj Timor Sit^l U SjLcj t S-iLSJl siA !-Ul>-l CjJj ^^^JJ^jjJI ^.^a. ^.".1 1 j j..iaic Jjl 

. 4jJLa1I jLflalj iiiLill si* s-Ui-l sjj«j V* * * jl Y * * * 

SjjjiSJl ^IjjJl J <■ ^lioSISGp |»lji>OL./L 4Jluw oJj !-lii>-'i(l jjSl ^)J^b Jjj«j tiji>-l '^.^ dJLia 

JjJ>jjj ^Lj_^l ji-^Lic J':^'-*^' I":! ^-iiLiJI sjj» jj^p^.h JjLO (^'jJ' j L>^J J:^*"'^ d)Ll» il^-> 

.Timer 

jL.^.>JJ Form3t Jj^ |»j lj| 4JI ^Jiju lla (j' "^!' Ujjj>-j (>> jS'bJIj ^UjjJI J^JLiu ^ 

0 L^I jjlUj <l»jja]| cjULjJI Sj^ls ^^ic jjj ^Lj jJI ciiLLi jJj <UjaII sja ^vw.<j |»jL) 

. ^''^J^' (J-;.»...ti."i.l Jj"^! 

UuLs ijjj t |»I Tb User Jjjj>- j j->>~. jj^j 4J1j>ji oia j j^jaj dUj j^l 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTablec 



jj^ ^ tiiJ^' RecordCount 



rv 



i ft i ffi 



p 



lia t:KU_^JjtaJ (inf0(5 UjL) UULiul 4i_^A^I s-Jj |»JL) ijj^ J->^ -^J^i j 4JI Ja:>"i 

: jj» jjjLjJI JjLSJI 



Private Sub Tinner1_Tinner() 

Set T4 = D1.0penRecordset("Tb_User", dbOpenTablec 

MDIForml.Show 
Unload Me 

If T4.RecordCount = 0 Then 
T4.Close 

Frnn_NewUser.Show 1 
Else 

Info(O) = T4!User_Nanne 
lnfo(1) = T4!PassWord 
lnfo(2) = T4!Name 
lnfo(3) = T4!Telephone 
lnfo(4) = T4!More 
T4.Close 

Frnn_Login.Show 1 
End If 
End Sub 



♦ ^ 



T ^ 



. \ = ^ ^jy^ BorderStyle 



ii 



rr 



Unload 



Private Sub Fornn_Unload(Cancel As lnteger( 
End 

End Sub 



. jl^o."'....i!^j jj"^! tbiJ'^ C>ijj3 ' (j'j^'*^' — (jjiJjJI 

(jj 4jLi Lo jl ( JjJ->- |»j.>a~« Jjj>v-u ) ^ti-^ fjj*^ Caption <u^L>- Jjj«j (jl (j»uj 

: Form_Load j ^^loJi j^Sji ^\ Caption ij^ij^ j ^^loji lijsj 



IVIe. Caption & - DateTinne.Date 



(>c ciaja>ji jJlc UaL,! u5 dUjj t True tijLu RightToLeft 
PasswordChar 

. — -» ULp — 4jJ5 Jjj j-flsj (jl 4J jjjj (_5 jJI Jl 

IVIore 

. ^ (> ^1 ^ LiaSJi ^.;k".,...;..i dijj True djj^ IVIultiLine s^ii^ 
ScrollBars 

Caption 

. ( |>J.><jLw.iil |3.^l ) 4JL>- j ( U^ljjL^I ) jl..^.>JI |>J.><ju,M |3^l i^-^J ''^J IJaLSlajli 



J kernel32 GetComputerNameA iib ^ji^i . -^jf 



Public Declare Function GetComputerName Lib "kemel32' 
Alias "GetConnputerNanneA" (ByVal IpBuffer As String, 
nSize As Long) As Long 



Private Declare Function GetConnputerNanne Lib 
"kernel32" Alias "GetConnputerNanneA" (ByVal IpBuffer As 
String, nSize As Long) As Long 



API jij. 

: Form_Load j ^ini ^^Sji ^ o^^i : luij 



Dim A As String * 256 
DimX 

X = GetComputerName(A, 256( 
Textl.Text = Left(A, lnStr(A, Chr(O)) - 1( 



. u^L>ji djj^i J End 

: (jjjLo-^jJ ? jj J n .^..J' (2>C IjLo (jSJ 

. (> j^hll Jj^l iou^l » 



. Prcedure /\ Sub Function iib i^f ^^-^ « 



Priv3te Function Check(A, B, C, D, E( 
End Function 



: ^llJI Ji-:iJb (jj^-;..... (^jJlj Jj"^! iou^^JJ t_i."5.t..... 



lfA = "" Then 

IVIsgBox (jJ JJ r vbExcl3nn3tion 

"jjjj*- 

Check = -1 
Exit Function 
Elself B "j^jii us jLi^ji (jj jj J — Then 

IVIsgBox "", vbExcl3nn3tion " 

Check = -1 
Exit Function 
Elself Len(B) < 3 Or Len(B) > 12 Then 



p 



MsgBox T vbExclamation 



r 

Check = -1 
Exit Function 

Else 
Check = 1 

End If 



If C = "" Then 
Texts. Text "^jj I ^^ui ^u^- = 

End If 

If D = Then 
Text4.Text = "0" 

End If 

If E = Then 
Texts. Text >^ 

TextS.Text = Texts. Text & vbNewLine ^ ^^i s^bj diiL<L»L" & 
iui^i ij^www.vb4arab.conn/vb" 

TextS.Text = Texts. Text & vbNewLine lui^ / & 
^yj^^i j^^i ^ ^u^iHannnnada2091 @Hotnnail.conn - 
End If 



>uj ujii; (Chr(1 3 ji TextBox VbNewLine 6i ^j^; 

.Ascii jjj^ jEnter jj j^ii, a' 



ii 



rv 



j^uuo j l.fr»-'>^ 4o.;aI I ^^^^ 4jljJI ^L£JjLw>/Ij ijjuu>/j i i3^lj^ jj p.;.o..jfi." ^1 Jjaj 



Dim Y As Integer 

Y = Check(Text1 Text, Text2.Text, TextS.Text, Text4.Text, 
Texts. Text( 



. Add_User ( s^i sj^ 



lfY = -1 Then Exit Sub 
Add User 



Add_User .i^-^i 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTable( 



: ^LjJI J5...tJL JjJ->- (J^w 4iL^L IjjJ |»j 



T4.AddNew 



T4!User_Nanne = Textl.Text 
T4!PassWord = Text2.Text 
T4!Nanne = TextS.Text 
T4!Telephone = Text4.Text 
T4!l\/lore = TextS.Text 



T4.Update 











Info(O) = 


T4!User_Nanne 


lnfo(1) = 


T4! Password 


lnfo(2) = 


T4!Nanne 


lnfo(3) = 


T4!Telephone 


lnfo(4) = 


T4!More 


T4. Close 





MsgBox & " : o\ ^ r lnfo(1 ), vblnformation + 

arable 



Start Module J iJb 



Public Sub Start 



0 



End Sub 



ijiLiJi Add_New uij j l^jo^j 



Me. Hide 
Call Start 



Private Sub Text4_KeyPress(KeyAscii As lnteger( 

If KeyAscii < 48 Or KeyAscii > 59 Then 
Beep 

KeyAscii = 0 
End If 
End Sub 



. Log in Form 

. Jj^jJI (Ja.>wU 4^Ltl l^J.^ p.0..jfL' (.ij^' 

^1 L&S^ I j-uiiJiJ I J j.i.»...^.".l I c5jj uj-V 4>^L^I sjji (J.xj>o c 4_>..^Ul <u^L^I ^■i.ol..^."u LIoJ LoSj 

; Jj.>jJI jjljl ^j*** ^■■^-'J 
^bJl JS-iJL dlljj c (lnfo(1 jjjil 4J5j (lnfo(0 f.ji>OLjl (> j^hll ^ JjSJI iou^l 



If Text1 Text <> Info(O) Then 
MsgBox t"4jjL*ji j^l ^Lii ... LLi^ ^jj^i ^1 dji^ji jaJ" 

vbExclamation + arabic 

Exit Sub 
End If 

If Text2Text <> lnfo(1) Then 
MsgBox c "iijuji j^i ... jj^i vbExclamation + 

arabic" ^j-^-j^^ 

Exit Sub 
End If 



. Len SelStart J SelLength 

SetStart 



Text1 .SelStart = 0 

Text1 .SelLength = Len(Text1 Text( 



Start 



ijL^I J J_^l j^ou^ 



If Text1 Text <> Info(O) Then 

MsgBox I djJit-jl OfiJ 

vbExclamation + arabic^j^ ^j^o^ j^^^wu" . 

Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 Text( 

Exit Sub 
End If 



If Text2Text <> lnfo(1) Then 
MsgBox . "iijuji j^l ... jj^i ioJ5" vbExclamation + 

arabic" 

Text2.SelStart = 0 
Text2.SelLength = Len(Text2Text( 

Exit Sub 
End If 



Me. Hide 
Call Start 



^^-Ajj Genral cjL>jj.^i ^ j My Count u jjjtio i_ij-iu dUn 

. . .±*j^ Fornn_Load v±;j^ j 4^ 



. Oj-illjLO ^J^l |»JL) 4JL>JI BJA jjj c 



My_Count = My_Count + 1 



If LCase(Text1 .Text) <> LCase(lnfo(0)) Then 
MsgBox t "UjU^i j^cl ^Lii ... ika. 

vbExclamation + arabic 

Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 .Text( 

If My_Count = 4 Then End 
Exit Sub 
End If 



If Text2.Text <> lnfo(1) Then 
MsgBox t "iijuji j^l kj>i ... jj^i vbExclannation + 

arabic" 

Text2.SelStart = 0 
Text2.SelLength = Len(Text2.Text( 

If My_Count = 4 Then End 
Exit Sub 
End If 

Me. Hide 
Call Start 



Start 

^j-iJI J-«*L.u j^jic J3LL>JI (_j.^>-l (jjj t LL>-"^ j^l iL-ii'^l (jj JjJaJI dJLia (jj^ 

. iaA3 <lJI i;vL>JI jJlC 4JI ^'■J^ l"* 1-*^-=" t-ij-- 



Start 



MDIForml .Caption & - - ^/jji ^ui ^uy = lnfo(2( 



. MDIForm 

Lable 

PictureBox ji» sb! "^i 
Frm Info 



Labels 

j^^jju ^yL>- (. (jjjji ij^.^ * (j^^ (ji jj fji*^' ^'■H^ BorderStyle c} 

. True d MDIChild 

Start lib jj o^^i 



FrmJnfo.LabeM = lnfo(2( 
Frnnjnfo. Labels = lnfo(S( 
Frnnjnfo. Labels = lnfo(4( 

Frnn Info. Show 



. J II iM ^ 4::iLiij4( ^ prog4.zip ^ijUt ii t tl h f ^ 




|>jAjj I jx^^l ^j.jAj Sj^Ij <Li>><ajj 4^Li i—\>3 jul^^l ^j.o.'V ^j' (_>*'jj-^l BJJt ^'-V ij L)''^ ^ 

: jiLiJL dUjj Index 



Select Case Index 
Case 0 

Case 2 

Case 3 

Case 5 

End Select 



End 



jjjijj (j l.^_>jLj Y©SNO L.^ljj>- 4JL.(j jW^' J* ^\ 'uLojJI oiA JjjJ 

. ^L^"il Jj^ No (ijLu 4j! (> j5hll 
: lift (^^1 ^ 



Dim Sure 

Sure = MsgBox c "? ^u^i .l^i j^sIul >")VbExclannation + 
vbYesNo + arabiC("^j>ji ^h- . 
If Sure = vbYes Then End 



. |»jjaJJ Unload <t)^^ t j X jj 

tUJi cjjjl>i >i.tjp.»..ji jjj Jaj>!>ij~( Unload ^lij^ j jj» (JjL-ji jj'^ii 
True ji Cancel 



Cancel Unload ^ 

False 



Cancel = True 
Dim Sure 

Sure = MsgBox c "? ^u^i .l^i jaslnu >")VbExclamation + 
vbYesNo + arabiC("^j>ji j^sb" . 
If Sure = vbYes Then End 



Cancel—True ujJlc jjjj>- (>> Load ii^j^ ^1 jj^jl^ <. dUj 

4.15...tJ I sla k-iUlUj ... u'j^ ''^'j'i ' '^jM'W ^yJ' i^LiJI s-Lii-l JI eSJj^ L" 

: ^_^LjJI J5...tiJL JjLSJI ^^j^ ' i±jj^I lis Jl*j 4^315 Start jjSfl s-LpjjL^I ^ 



p 



Cancel = True 
Dim Sure 

Sure = MsgBox c "? ^u^i -l^i jasbju >")VbExclannation + 
vbYesNo + arabiC("^j>ji jasb- . 
If Sure = vbYes Then End 

Start 



. ( olooLu Ajjlijj L jjJI ) Ajjlst Jafi 

About 

jji . . . About DialOQ jLai>-lj (>J^I tr-jUl j3j ^jJ t^l ^ iaAjJU Sjj».|j isLal ^^^x!aj~u 

. - ^ iki^ - Frnn_Splash 



p^i jjijj Load 



Me.Captlon = "About " & App.Tltle 
IblVersion. Caption = "Version " & App. Major & "." & 
App. Minor & "." & App. Revision 
IblTitle. Caption = App.Title 



ii 



4 V 



4i 



ji^^i ^tk-;.,.,,.-; ji ... Make ^yi^iJi (>i Project Property ^ Project 



AboutMe.Show 1 



Text rtf 

4iLil k_JUJI (jl Lojj . . . Wordpad — jlsJI jj jjJjyj J ijljjSiL 

. RichText sbi 



. . . JaA3 X jj i^jic (^jJjJI ^-!=>Jj-^ (^yij>o . . ^^j^ L>» (J-**; "^j' W 

. Microsoft RichText Control 6.0 Ctri+Tiii^i obSji 4iU"i 

. Help. rtf ^1 d*^- ^u^i 
FileName 

iLj-il jJ-^-Jj" JJ->j' 

ScrollBars 

: ^LjJI J5...tJL dUjj t Jri-*^*^' v±jjij»- J Sb'il j.\.^o jjjaO (jl Uolc U J5 




I lis jL^L (j^LiJI jj'^lj 



Frnn_Help.Show 1 



. J II >f>l n^tl ^ JbjjJl CiLAijJlf prog5.zip t.ijUI ^JLiliXdr («-d 




. Sjjjvjil ^LjfuJl ^;.o.'> (j^jaJ JjJJk. 

jj... MDIForm ^.^^ Children ^ti-f 

. MDIChild = True 

Microsoft Flex Grid 6.0 Ctrl+Ti:^i j^j^i 

DBGrid 

. dUj i:u5.o...,...j 

: ^_^IjJI y>H\ JMi^ (> 4^LiJl ^L^Ji"^ 



Case 0 
If T1 .RecordCount = 0 Then 
MsgBox 

l" icLA.vbExclannation + arabic 

Exit Sub 
End If 

Frm Show.Show 



jij-^ii^ BorderStyle-2 cy ^^^^ ^uj^ js. ^yji jj 

. 4.l5...tU I sis djj^' (jJi ^ Jj 4j^L>JI Clikju-i jJ (j^j — Ijli |3^l 
diljJ L Frm Info ^ UUS \^ ^jy]\ l^j^yj 0^y-> '-^JJ^ ' 11>:WJ'^' 6:0^*-^' iaLal ^j-^ (jJ 

: p^au Load dij^ J i.a. ^ i. i ..j' A ...i 



Frm_Show.Left = ((MDIFormI .Width - Frm_Show.Width) 
12 ) 

Frm_Show.Top = ((MDIFormI .Height - Frm_Show.Height) 
/ 2) - 800 



Refresh Me 

. j^juG ji ^^j> ijioc j5 jicj t Form_Load 

T1 

: iojLftJl Jl <U3 !-Lo-«/"il ^L^-jJI Jl ^IjjJI 



Sub Refresh_Me() 

Combol .Clear 
If T1 .RecordCount <> 0 Then 
TI.MoveFirst 
For i = 0 To T1 .RecordCount - 1 
Combol .Addltem T1 IName 
TI.MoveNext 
Next i 
End If 



. True 

OJ^Ij jl^^5u 4^1^ ^J^lj LKJ-aJ^- ^-g-w-*^* c^J-mj 

. MSFIexGrid j 

: lSjW* 

http://www.arabteann2000- 
forum. com/index. php?showtopic=40959&hl=MSFIexGrid 

http://www.c4arab.conn/showlesson.php?lesid=215 

oLiJJij Row J Col 

Text Cell 

t JjjjfcJI J ojj^Sllj t_i_jLaJI jj^ (jljj^' (jljJJIj Cols J Rows ^^ju^Li- LiuJ dJUiA 

Clear 

(_5yiL><j t 4j« jjbtjuj jjjjjji 4-'i.;.^-'ij djjjj Create Flex 4ja-u ^Ij-*-' J-**; 



MSFIexGrldl. Clear 

MSFIexGridl.Cols = 7 

MSFIexGrldl. Rows = T1 .RecordCount + 1 



: i] 4juA<Llil "UjaJI jjac qJ\j ^^ic ' Sjjlc'^I (jjj JaIIu t_ij~*3 ijjLill <Lo.^jJJ Ul 



MSFIexGridl.Row 


= 0 


MSFIexGridl.Col = 


= 0 


MSFIexGridl.Text' 


" = 


MSFIexGridl.Col = 


= 1 


MSFIexGridl.Text' 


r^y = 


MSFIexGridl.Col = 


= 2 


MSFIexGridl.Text' 




MSFIexGridl.Col = 


= 3 


MSFIexGridl.Text' 


erJi" = 


MSFIexGridl.Col = 


= 4 


MSFIexGridl.Text' 




MSFIexGridl.Col = 


= 5 


MSFIexGridl.Text' 




MSFIexGridl.Col = 


= 6 


MSFIexGridl.Text' 


jjaJI" = 


MSFIexGridl.Col = 


: 7 


MSFIexGridl.Text' 


(j J .1.1..^ / 0 J " = 



MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 



gnnnent(O) = 5 
gnnnent(1) = 3 
gnnnent(2) = 5 
gnnnent(3) = 5 
gnnnent(4) = 5 
gnnnent(5) = 5 
gnnnent(6) = 5 



MSFIexGridl.ColWidth(O) = 500 
MSFIexGrid1.ColWidth(1) = 1500 
MSFIexGrid1.ColWidth(2) = 1500 
MSFIexGrid1.ColWidth(3) = 1500 



. Refresh_Me lij^ j .i^^i 

(j-/jjj LjuuiS^ iftj^jJaJl (j->aL (^'y J ' j',^^' J->-lj JjJ^I Sjjjij (2>C IjLo (l)5Jj 

Refresh Me 



Sub Refresh_Me() 

Combol .Clear 
Create_Flex 

If T1 .RecordCount <> 0 Then 
TI.MoveFlrst 
For 1 = 0 To T1 .RecordCount - 1 

MSFIexGridl.Row = i + 1 

MSFIexGridl.Col = 0 

MSFIexGridI .Text = T1 INumber 

MSFIexGridl.Col = 1 

MSFIexGridI .Text = T1 !Name 

MSFIexGridl.Col = 2 

MSFIexGridI .Text = T1 ICategory 

MSFIexGridl.Col = 3 

MSFIexGridI .Text = T1 IFactory 

MSFIexGridl.Col = 4 

MSFIexGridI .Text = T1 Iprice 

MSFIexGridl.Col = 5 



MSFIexGridI Text = T1 .Fields("Count(' 

MSFIexGrid1.Col = 6 
MSFIexGridI Text = T1 !Box_Count 

Combol .Addltem T1 !Name 

TI.MoveNext 
Next i 
End If 
End Sub 



dUj Count 



MSFIexGridI. ColAlignment(O) = 5 

MSFIexGridI. Col = 6 
MSFIexGridI .Text = T1 !Box Count 



5j-s>l>ji |»j MSFIexGridI sijSji ^\ up 4j-.3L>ji ^—u^ — or^jk |»j->'j^ 

JjaP i_j«.<^ J^jL>JI i-jujjiis ljj t i_juj_pLlLj |»^^ (.S^'j Sort 4_i^L>- JjLo jAj <U^L>JI ajA 

: ^UII l^P 



MSFIexGridI. Col = 1 
MSFIexGrid1.Sort = 7 



? ^v^- v . ^ lift Jj» t 4jl(jj Jj«j jj (jl CJ^LS-'i Ji (jj5tJ LoJj (j5t]j 

. Jjjj>JI (jj ijjjjJI jj^pg.h jjjvlL.) t 4_>jjjJI jjsLij diljj 

. ^ ^ J^jjvjl Jj.olxJI ^t..^.; Loa2 ^ ^J^^ ) ^.'■"'^-J-^ 1°^^' |>^l (j-o (j*^l jjJu^ 

Jaj |»jL) (_3j~/ dU j (jl Jj t |»L3j'^L JjjjJI Ija AjjjC 4jioAj (jljjjJI j!>L>- |»^^ (jJ LjJI J^l>-"^ 
. — i^J.>o Lo iw^i^ljj ^J*^ l-^g-*-^J — ^^-i^ (jli *^lj C I.g-U."»jj (jj 

: i_ujjjJI jjy ^IjJI j_^l ^^-Aj dUjJj 



MSFIexGridl.Col = 0 

For i = 0 To T1 .RecordCount - 1 
MSFIexGridl.Row = i + 1 
MSFIexGridl.Text = i + 1 

Next i 



(J jJI JjjjfJI J Ijjj^' jI diULuJI oopli J (jjikJl lla (j"^ |»L3j'^l l-"! oJaj*-"^ jJ 

(jj (_jJ'^l ^^k^'^l J dUjj ^IjJI llH-SjJ^lj ^Ijj'^l ^jJ->- J k±A*jJI Jl ^'■J^ IjJj 

: J_^l 



MSFIexGridl.Col = 3 
MSFIexGridI Text = T1 ICategory 
MSFIexGridl.Col = 4 
MSFIexGridI .Text = T1 IFactory 



SetT1 = D1.0penRecordset("Tb_Product", dbOpenTable, 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.nunnber and 
tb_p rod u ct. facto ry=tb_fa cto ry . n u m be r- 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



. Access j 

4*j>-ljj dJjLSLoLi t L^JulaS^ ciA*j t Jjj>JI si* Jio (j^jj^ll 4ijAj jyj >i. u 5 Ijlj 

. t—lluSJI lift (jj 

. Refresh Me 

T4 Jl T1 j5 

uiLs Name j Number ji, .u^l ^jj c>% 

Jji Ja>JI (jLSj jS'jj (^1 jj UjU III i ^Ijj"^! |»l ^LsJl Jjjj>- J ^1 |»l ^LoJI Jjjj>- J ^1 

Jl T1 !Name 




p 



. Number Ja>j Ix^l lis^j 



MSFIexGridl.Col = 3 

MSFIexGridI Text = T4.Fields("tb_category.nanne(' 
MSFIexGridl.Col = 4 

MSFIexGridI. Text = T4.Fields("tb_factory.nanne(" 



. illjJI oia 4^l.fr.'u T4 jIAj (j! Liul 

oi-^j t jjj->Ji j^jJJ LajIs i.o.^Jp.'..J' Row j Col ^^ju-aii- 4jL» jSji ujIc 
Click 

: JjA>JJ 



MsgBox "Row : " & MSFIexGridI .Row & " Col : " & 
MSFIexGridl.Col 



: \'x^ ys\ l.^-;.I.C jaIILj LlaS ^^jjiJI 4_ii>JI i:L>\jys>^ Jj-.sl>JI I.'uS.o.; iiLjJaJI (j^iijjj 



MsgBox MSFIexGridI. Text 



: 4jL>- Jl JjjvjJL Ujli III ... L^j^^ L^Jtc 



ii 



MSFIexGridl.Col = 1 
MsgBox MSFIexGridl.Text 



i_ij~< LUI L |»5jJI lift 4j (_5jJI Jj>wJI i>C L^Mi- (jj djiJvjLj |»M*jL.<I iLoJ*- ijlaSj (j'^Il IjjlL^ 

and .1.^ Where j ^iLy; ^iui ^ i^sj j^lji ^^ji j j.'^Uju-'iii ji, 

uji djo^ Number = MSFIexGridI .Text 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and 
tb_product.number =" & MSFIexGridl.Text"" & 



If T4.RecordCount <> 0 Then 
T4.MoveFirst 

Text7.Text = T4.Fields("tb_product.Number(" 

Textl.Text = T4.Fields("tb_product.name(" 

Text2.Text = T4.Fields("tb_category.name(" 

Texts. Text = T4.Fields("tb_factory.name(" 

Text4.Text = T4! price 
TextS.Text = T4.Fields("Count(" 

Texte.Text = T4!Box Count 



: ^ui jiLiJL^Sji Tb_Product.nanne 



ComboLText = T4!.Fields("tb_product.nanne( 



... ShowData 

: ^LjJI J5...tJL jj"^! ^^j^ •^'■^3 



Private Sub ShowDatao 


Text7.Text = 


T4.Fields("tb_product.Nunnber(" 


Text1 .Text = 


T4.Fields("tb_product.nanne(" 


Text2.Text = 


T4.Fields("tb_category.nanne(" 


TextS.Text = 


T4.Fields("tb_factory.nanne(" 


Text4.Text = 


T4!price 


TextS.Text = 


T4.Fields("Count(" 


Text6.Text = 


T4!Box_Count 


End Sub 





Private Sub Connbo1_Click() 

SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.nunnber and 



tb_product.factory=tb_factory. number and 
tb_product.nanne ="' & Combol .Text"'" & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



If T4.RecordCount <> 0 Then 

T4.MoveFirst 

Call ShowData 
End If 

T4. Close 
End Sub 



. L^Lib ioiiiu Click 



ij J g h'i.ci CjLjjjl>JI La3 L ^jy'^ ^'-^l k±iJ^ JjlC jAj t OJ^Ij OjJai- LloLol dJIj Lo 



Connbol .Listlndex = 0 



. Jjjj>JI (jj ciiLojixIl if-ijs LljLSjL (jl |»'>U«jL.(I 4jioJv IjLoIs Ijl 

MSFIexGridl.Col = 1 



jls^Lfdl JiP"^^ iS^3 ^^Jh ly^^ JjjlxJI Jl Jliuj"^! j^^ilaJ-o CjijJI ^_yjAj J 

: j_jJLjJI Jj5JI ^_jJajl ... (_yaji.jfL'i.l I CjLajjj j 



MSFIexGridl.Col = 1 
Text7.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 2 
Text1 .Text = MSFIexGridI .Text 
MSFIexGridl.Col = 3 
Text2.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 4 
TextS.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 5 
Text4.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 6 
TextS.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 7 
Texte.Text = MSFIexGridI .Text 



^ _^ ^^-'i-uj * IjJL) index 4^>>^L>' ^.-^ I CjLxjjj ^jl i^^j^^-j V Jaj IjLoj 

. Text1 



For i = 0 To 7 

MSFIexGridl.Col = i + 1 

Textl.Text(i) = MSFIexGridI .Text 
Next i 



Text1,Text2 Text? 



V « « jjjJI ^^j-sy ^l-MW i-=''->Jlj ckULjJI Sj^U J Sjjj>-_^I cjM>^I |»^ dlljj"^ 

Y ) (jJJ ^Ijju jUalul "ijlS JjJk'jj (_>i)jj«JI iiaj JsL^^lj (_iij««*3 1.ajj*»< >1Iju«(L> |*J lj| . ^ilio icL^aj 
(jlj Loj-<ai- s-j^/"^! LojIj wJji* (jl US^ t ( ^i^^jJauJI jL^_>JJ ijjlj ^0 — ^j«»JI jj^jjjloj^JJ 4jjlj 

Microsoft Ctrl+T 
^ ProgressBar sij-ii ^ . Windows Common Coontrol 6.0 

. ijuMtii J j-fiaj u'i i^LiJi CntrolBox a' 

. Frm_Wait ^yji ^^i j^^^i i^i 

. Refresh IVIe Ij-i^ l.^-;J.C i^i^ 4-;J.o.C 



Show RecordCount <> 0 nf 

. Unload Frnn_Wait ik^i^ <ui>j ^jj^ 1^1^^ 

__jS'jj uij-- L^jw JjLwjJi J s-jjji jjiij ProQTGSsBar sbi ^ JjLaju |J cjjaj*-"^ jj 

. slj'il (^vsuLasJI oaxju 



. v^-i jj^i : Scrolling 

Max 
Mln 

. iuyjj 4jL*ji Iojaii jj^j : Value 



. ^^Lf^\ jss. = Max 
. ju, = Mln 
Value 

. ^ syiLo Frnn_Wait ^ ^3 Frnn_Show j 

Frnn_Wait.Show 

Frnn_Wait.ProgressBar1 .Max = T1 .RecordCount 
Frnn_Wait.ProgressBar1.Min = 0 
Frnn_Wait.ProgressBar1 .Value = 0 



Frnn_Wait.ProgressBar1 .Value = 
Frnn_Wait.ProgressBar1 .Value + 1 
DoEvents 



L^ljl VL)^ ~ ^-i)'"^. ^y'-i ^b«JJ <L.3_^ ci^'^ ti^'^' J-^"'-^ I ^i"*^' ^J^s-^' 

: ^bji jiLiiL Fornn_Load 



Private Sub Fornn_Load() 

Frm_Show.Height = 5520 
Frm_Show.Width = 8145 

Frm_Show.Left = ((MDIFormI .Width - Frm_Show.Width) / 

2( 

Frnn_Show.Top = ((MDIFormI .Height - Frnn_Show. Height) 

/ 2) - 400 

Me. Show 

Refresh_Me 

End Sub 



: Refresh_Me ^j^j 



Sub Refresh_Me() 

SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 



tb_product.category=tb_category-nunnber and 
tb_product.factory=tb_factory. number" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount = 0 Then Exit Sub 
Frnn_Wait.Show 

Frnn_Wait.ProgressBar1 .Max = T1 .RecordCount 
Frnn_Wait.ProgressBar1.Min = 0 
Frnn_Wait.ProgressBar1 .Value = 0 

T4.MoveLast 
T4.MoveFirst 

Combol .Clear 
Create_Flex 

If T4. RecordCount <> 0 Then 
T4.MoveFirst 
For i = 0 To T4. RecordCount - 1 

Frnn_Wait.ProgressBar1 .Value = 
Frnn_Wait.ProgressBar1 .Value + 1 

DoEvents 

MSFIexGridl.Row = i + 1 
MSFIexGridl.Col = 1 

MSFIexGridl.Text = T4.Fields("tb_product.Number( 
MSFIexGridl.Col = 2 

MSFIexGridl.Text = T4.Fields("tb_product.nanne(" 
MSFIexGridl.Col = 3 

MSFIexGridl.Text = T4.Fields("tb_category.name(" 
MSFIexGridl.Col = 4 

MSFIexGridl.Text = T4.Fields("tb_factory.nanne(" 

MSFIexGridl.Col = 5 
MSFIexGridl.Text = T4!price 



MSFIexGrid1.Col = 6 
MSFIexGridl.Text = T4.Fields("Count(" 

MSFIexGridl.Col = 7 
MSFIexGridl.Text = T4!Box_Count 

Combol .Addltem T4.Fields("tb_product.nanne( 

T4. Move Next 
Next i 



MSFIexGridl.Col = 2 
MSFIexGrid1.Sort = 7 



MSFIexGridl.Col = 0 
For i = 0 To T4.RecordCount - 1 
MSFIexGridl.Row = i + 1 
MSFIexGridl.Text = i + 1 
Next i 
End If 



T4. Close 

Combol .Listlndex = 0 



Unload Frnn_Wait 
End Sub 



. J II iM ^ Aj}X CiLaJ^i ^ prog7.zip L^Mi AtHUf ^ 



p 



. Delete 

: 4_)jjj.>J 4JL.(j jlp^.hl L>* j 4jijj (2>» J^l^l jj ^ 



Dim sure 

sure = MsgBox t Iclaji sis ^i>o ^.u^ii ^.j^ di:l d*:! >") 
vbExclamation + vbYesNo + arabicf 
If sure = vbNo Then Exit Sub 



ja^-'i t Text7.Text j ij^i ' jj.>uJi Jj>^i ji j-^ u' 

: ^liJI jjSJI Jlill Jju^ 



If T1 .RecordCount = 0 Then 
MsgBox c "! i^Uu j^y; r vbExclamation + arable 

Exit Sub 
End If 



TI.MoveFirst 

For i = 0 To T1 .RecordCount - 1 

If T1 INumber = Text7.Text Then Exit For 

TI.MoveNext 
Next i 



1 V 



SQL = "delete * from Tb_Product where nunnber=" & 
Text7.Text 



. - ^] - Select ijj: Lo ^-^^'^i U "i Dao jUi ^is-^ji 

. 4jLcli Jilj Ij.^ jji^l iljJJ Jji* i»lj.>a~<l — Ucjj — ^>kJ>l Oj-- 'j-^-'j 



: 4j1c Ujlc tfjJI Jj>^l |»_jiLL.( (j'^lj 



T4. Delete 



Refresh Me 



ujLa View=False 



A1 = T1 ICategory 
A2 = T1 IFactory 



T3 J T2 j L^i julu"^i 



T2.MoveFirst 

For i = 0 To T2.RecordCount - 1 
If T2!Number = A1 Then Exit For 
T2. Move Next 

Next i 

TS.MoveFirst 

For i = 0 To TS.RecordCount - 1 
If T3!Number = A2 Then Exit For 
TS.IVIoveNext 

Next i 



\x>\3 % View <> False a? 



If T2!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where category=" & A1 " " & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T2. Delete 
T4.Close 
End If 

If T3!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where factory=" & A2" - & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T3. Delete 
T4.Close 
End If 



i_3Il>JI 4jioj«J JjLSJI J_^I .yOLufi.; Ij^J 



Dim sure 

sure = MsgBox t "f icuji sis ^i>o f.uii ^.j^ di:l j^bw d*:! >") 
vbExclamation + vbYesNo + arabicf 
If sure = vbNo Then Exit Sub 

If T1 .RecordCount = 0 Then 
MsgBox r\ IpUu S\ r vbExclannation + arabic ^-^^ 

Exit Sub 
End If 

TI.MoveFirst 

For i = 0 To T1 .RecordCount - 1 
If T1 INunnber = Text/Text Then Exit For 
TI.IVioveNext 

Next i 

Dinn A1, A2 
A1 = T1 ICategory 
A2 = T1 IFactory 
T1. Delete 

T2.MoveFirst 

For i = 0 To T2. RecordCount - 1 

If T2!Number = A1 Then Exit For 

T2. Move Next 
Next i 

TS.MoveFirst 

For i = 0 To T3. RecordCount - 1 

If T3!Nunnber = A2 Then Exit For 

T3. Move Next 
Next i 



If T2!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where category=" & A1 " " & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T2. Delete 
T4.Close 
End If 

If T3!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where factory=" & A2" - & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T3. Delete 
T4.Close 
End If 

Refresh Me 



Child 

. 4jjL5 ^5-'>.'iJJ OJjjJI Jji5 JjJjijJI ^j^. ^Jj^ Show 1 iajJjtiJL U (jl Jj_y 

. J 4jj^i (> jjji Tablndex 

. Frm Edit 



ii 



4i 



p 



^Lail 4^Li 'tJLiA U^J-i^ i I— ^J-^ ^J^'j I (jl t ljj>- LoLa Ijji (j»uj 

jJjJjCiJi Jj»-I (jj I. L^JjJjCJ |>jl> icL^juJI 1*3^ JaAJL>aJ ^)JJ<JW jl (jl^ 

Lol t C1.UUJI 5jj;ii ^ (^si^jiijj r« f^":ii Ja>j MaxLength j^^^- (jf i^f ^ 



tijjij Fornn_Load ^.ijJi 



<U^L£iJl |».;.o..^.'u Lla^ (jl Jajj 



. Connbo2 J Combol (jjJLOjUJI j S^Jjill ^Ijj'^lj ^Lsjl ^■0.'>- j^-iSJ L>*~ 



T2.MoveFirst 
TS.MoveFirst 
Combol .Clear 
Connbo2. Clear 

For 1 = 0 To T2.RecordCount - 1 
Combol. Addltem T2!Name 
T2. Move Next 

Next 1 

For 1 = 0 To TS.RecordCount - 1 
Combo2.Addltem T3!Name 
T3. Move Next 

Next 1 



p (jjj 4 j -i^:jCu t |»jJaII liA JjA^ jjl Jl (j'^lj 

— ^l.J'.tJ I (jj LaAji^ |»J.C (jj jS^LjJIj (jjjjjiJI ^Ju^lj ^^jjJL j3JlJi.>J (jl (j«uj "^j . JjJjijJI j 



ii 



4i 



Dim A1, A2 

SQL = "select number from tb_category where name="' & 
Text2.Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 
A1 = T4!Number 

SQL = "select number from tb_factory where name='" & 
TextS.Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 
A2 = T4!Number 

Load Frm_Edit 

With Frm_Edit 

. Text1 Text = Text1 .Text 

Combo 1 .Text = Text2.Text 
. Combo2.Text = TextS.Text 
. Text2.Text = Text4.Text 

TextS.Text = TextS.Text 

Text4.Text = Text6.Text 

Ibl name & - Text1 .Text 

. Ibl_num = "no." & Text7.Text 
End With 

Frm_Edit.Show 1 

T2.MoveFirst 

For i = 0 To T2.RecordCount - 1 

If T2!Number = A1 Then Exit For 

T2. Move Next 
Next i 

TS.MoveFirst 



For i = 0 To TS.RecordCount - 1 

If T3!Number = A2 Then Exit For 

T3. Move Next 
Next i 

If T2!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where category=" & A^ ■ & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T2. Delete 
T4.Close 
End If 

If T3!View = False Then 

SQL = "select count(*) as mycount from tb_product 
where factory=" & A2" - & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T3. Delete 
T4.Close 
End If 



Refresh Me 



Unload Me 



. JjJjOJI 4jLuJ |»'>l»ju.(l 4ioJ> UjJajuiji JjJjijLII jj ^^ic LlLuLii Ijl Loi 

SIjI J "k^Lojil jiij (jj^l (_jjjl ^Lj_^l J oiJ3j>"i jJj i SxLiuJI Lo i_3jj«j (jl Ljyie "ijlj 

: ijJLllI iljjislL (_>s>'>l>a-il ^u5.o.; IjJj .nO ^Js^ Jji3 



i ft i ffi 



p 



Dim My_Nunnber 

My_Nunnber = Mid(lbl_nunn. Caption, 4, 
Len(lbl_nunn.Caption(( 



SQL = "select * from tb_product where name="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
If T4!Number <> Val(My_Number) Then 
MsgBox . "^T LwI jii^i !>u>3 l ^ iciiu vbExclamation 

+ arabic" 

Exit Sub 
End If 
End If 



Dim Num1, Num2 

SQL = "select number from tb_category where name='" & 
ComboLText & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Num1 = T4!Number 
T4. Close 

SQL = "select number from tb_factory where name='" & 
Combo2.Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Num2 = T4!Number 
T4. Close 



Jjjjull 'ijioJU |»5 ... 



Ill t IJjJ^' UpdStS jjSlI iJiu^l CjLo^UjLx'^I ii] ^ J5Lij (JjJ IjJJfcuij 

: JjJjvjJJ dlljj i_jl>JI J l.p.o.1.V."....J ^1 4Aj_^I dllj |»ljjka~.l Jl ^jjis^l 



TI.MoveFirst 

For i = 0 To T1 .RecordCount - 1 

If T1 INumber = Val(My_Nunnber) Then Exit For 

TI.MoveNext 
Next i 

With T1 
. Edit 

! Name = Text1 Text 

! category = Numl 

! factory = Nunn2 

! price = Val(Text2.Text( 

! Count = Val(Text3.Text( 

! Box_count = Val(Text4.Text( 

Update 
End With 



Unload Me 



( JjjJu^/Sj^j — jA~Jl — jjjJl ) cjULi*- J Las |»lijl (>c S jLc cuMi-jil (jl (>> j^llll 



If KeyAscii > 


58 Or KeyAscii < 48 Then 


KeyAscii = 


0 


End If 





p 



. ^mi iLLj, ji,^ (iiii KeyPress j j^Sii i 

. (JJJJaJI (jjJA (jJJ ■^ijjj jlj^!>U (j^-^l (j' '— ';! -'*• 

iuuji ji^ L»5 Backspace 

: l.o. g - i . u .... o (_3j~< 



If (KeyAscii > 58 Or KeyAscii < 48) And KeyAscii <> 46 
And KeyAscii <> 8 Then 

KeyAscii = 0 
End If 



c Paste Ctrl+V 

. Cut o-iJJ Ctrl+X 



If T4!View = False Then MsgBox ai 

t "jjjii (jjju ^Lajji |^^jjL>- 4j»jjj Sjj.^ jjjj-jj jAjVb Exclamation "i" 
arabic" 



If T4!View = False Then MsgBox 

t"^jjji (jafij ^Lijji '•L^i ^ji^ ijjjj Sjj-^ jjjj-jj jAjVbExclamation 
arabic" 



ii 



4i 



p 




. jj^i ioiuui ^ ui*3 U5 Index 'i-0Ji3 jjjL>J i_3j^ <L)IjjJI ^ 



Select Case Index 
Case 0 

Case 1 

Case 2 

End Select 



If T2.RecordCount = 0 Then 

Msg Box 'y isUL 

t"^L:>jJI SiLiL s-JjJI Jji . ^ 4iLil — SiLiI Lull (>vbExclannation + 

arabic" 

Exit Sub 
End If 

If TS.RecordCount = 0 Then 

MsgBoX jjjj 4iLiL |»5 i dLjJ (jjjjjj (ji ■'J^i c-*^ ^ i^Loj isLol dU5.o.; 

•i,lvbExclannation + 

arabic" icLiu 4iLs)l" t 

Exit Sub 
End If 



VA 



p 



: 4iLi"^L ;_>^L>JI |»jja]I jL^I Ijj->-Ij 



Frm Add. Show 1 



. J^IjjJJ LL-v:? k_>_^'^l lift 

. 4^L>JI ^L^sdlj ^ljj*^L jul^^l AmjOj (J-;.»...ti." J.S^ ^ ['3''^ <— ij~< ^ 



T2.MoveFirst 
TS.MoveFirst 
Combol .Clear 
Connbo2. Clear 

For 1 = 0 To T2.RecordCount - 1 
Combol. Addltem T2!Name 
T2.MoveNext 

Next 1 

For 1 = 0 To TS.RecordCount - 1 
Combo2.Addltem T3!Name 
T3. Move Next 

Next 1 



Clear_Text <u*^j l ^uijkIi ^j'i ^\y>.\ ujf us 



Sub Clear_Text() 
Text1 .Text"" = 
Text2.Text"" = 
TextS.Text"" = 
Text4.Text"" = 
End Sub 



m 



Clear_Text 




Combol .Listlndex = 


0 


Connbo2.Listlndex = 


0 



: JjLJI (j-'jjJI sL1>jJ< jij . S^^j^"^! djMUl cuULiJJ jLi-jl (>» J^LllI 



If (KeyAscii > 58 Or KeyAscii < 48) And KeyAscii <> 46 
And KeyAscii <> 8 Then 

KeyAscii = 0 
End If 



: p^aJI jMilj u^LaJlj ( ja^i s-UJI ) jjl ^^--jj US' 



Unload Me 



. Lou^Lil |»J^ 4.t5.oA3 Lo^l ^'■J^ 'jp 



If Text1 Text = Then 
MsgBox . "! i^uji ^1 j^ji r vbExclamation + arable 

"icLij SiLiI" 

Exit Sub 
End If 



SQL = "select * from tb_product where nanne="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox . "^tL-i !>u>3 l ^ icUu vbExclamation 

+ arabic'icLi^ siui" <. 

Exit Sub 
End If 



T4. Close 

Dinn Nunn1, Nunn2 

SQL = "select * fronn tb_category where nanne='" & 
ComboLText & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Num1 = T4!Nunnber 

If T4!View = False Then MsgBox i3-^ ai 

t"^jjji (_)^ ^Lijji ^L^i |_jjL>- 4j»jjj Sjj-^ jjj>-jj jAjVbExclarnatlon "i" 

arable 

T4. Close 

SQL = "select * fronn tb_factory where nanne='" & 
Combo2.Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Nunn2 = T4!Nunnber 

If T4!View = False Then MsgBox ai 

t "jjjii i_y>sL> |^^jjL>- ijjjj Sjj.^ jjjj-jj jAjVb Exclamation "i" 

arabic" 

T4. Close 



With T1 
. Add New 

! Name = Text1 Text 

! category = Numl 

! factory = Nunn2 

! price = Val(Text2.Text( 

! Count = Val(Text3.Text( 

! Box_count = Val(Text4.Text( 

Update 

End With 



IVIsgBoX iaLiI J-^lj jl ^L^l j3 JaA-il 




. "^u>jivblnfornnation + arabic 




Clear_Text 




Text1 .SetFocus 





: iHjLaJI ^jjjJI cjULolC (jj s-L^JLj"^! i_«Jil lia 



. J II >i^l fl?t< ^ Ju>X 4ltL^>tl ^ prog9zip t.^JU( ioJUx^ 



p 



(jjJI ^jjJI jf 4j (^^^ (^J^i' 4jJL>JI ^Ijj"^! jl (jjjj_jlL iajli >illj5 

Frm Add 2 

JjjjOJIj Jjuli^/ Jj SiLa'il (jJ jj"^! (jl >!>.>■> . ( ^Ijj'^lj p5.-vjJI — (jjjj_^L 



Case 1 




Frnn_Add_2.lbl_nanne"^iyS!i 


CIjLojJaj" = 


Frm_Add_2 . Ref resh_Me 




Frm_Add_2.Show 1 




Case 2 




F rnn_Ad d_2 . 1 b l_n a m e - 6. 


CjLojJaj" = 


Frm_Add_2.Refresh_Me 




Frm_Add_2.Show 1 





ii 



4i 



? Refresh Me 

J (jjiSj; <CiiftjJj>jj t fjj*'' "CJbLio (jSLsj '■ijj^ Public ^jj (jj "tiSJ Sub '•Ij^l "tjl 



Public Sub Refresh_Me() 
List1 .Clear 

If lbl_nanne. Caption -^i^Sji ^uy*,- = Then 

If T2.RecordCount <> 0 Then T2.MoveFirst 
For i = 0 To T2.RecordCount - 1 
List1. Add Item T2!Nanne 
T2.MoveNext 
Next i 
Else 

If TS.RecordCount <> 0 Then TS.MoveFirst 
For i = 0 To TS.RecordCount - 1 
Listl.Addltenn T3!Nanne 
TS.MoveNext 
Next i 
End If 
End Sub 



If T2!View = False Then Listl.Addltenn T2!Name - & 
Else Listl.Addltem T2!Name 



: ^IjJL^ ijj^-;..... IjJj t 'Ujbfo fjjJI 4jla5 LjuJ ^yijuJ L<i5 



If T2!View = False Then Listl.Addltem T2!Number & "-" & 
T2!Name -(^y^) - & Else List1 .Addltem T2!Number & "-" & 

T2!Name 



Unload Me 



. LajL»< jr^"^! (j>>^JtJ jl Jj^JJ "^J^J j'"'^ 'J^'-iJI iS 

^j3\^ t Refresh_Me j^i ^uji-,i i3j> 6* i«uji ^ 



MyAdd 



Sub MyAddo 

If Text1 Text = "" Then 
MsgBox l"i i^UuJi ^^i ju^ji (> r vbExclamation + arable 

"icLiu SiLal" 

Exit Sub 
End If 



If lbl_nanne. Caption "^y^\ = Then 
'add category... 

SQL = "select * from tb_category where nanne="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox i"y>.J'i^\ !>u>3 L ^"ii ^ 4^ vbExclamation + 

arable ^jj 4iLs>l" t 

Text1 .SetFocus 
Text1 .SelStart = 0 



Textl.SelLength = Len(Text1 .Text( 

Exit Sub 
End If 

T2. Add New 
T2!Name = Textl.Text 
T2. Update 

Else 

'add factory... 

SQL = "select * from tb_factory where nanne="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox c '^T LwI jii^i !>u.i t ^ 4j j^j^ vbExclamation -•■ 

arable" 

Text1 .SetFocus 
Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 .Text( 

Exit Sub 
End If 

TS.AddNew 
T3!Nanne = Textl.Text 
TS.Update 

End If 

Refresh_Me 
Text1 .Text"" = 

End Sub 



Al 



m 



p 



: ^llJI Ji-iJL dllj (> j5hJI 



If List1 .Listlndex = -1 Then 
Msg Box . "iji vbExclamation + arabic l 

"i_ii>-" 

Exit Sub 
End If 



4i<jj >l 



If Text1 Text 


nil 


Then 


Msg Box c " 






vbExclannation + 


arabic"icLiu 4iu>i" t 


Exit Sub 






End If 







BL>jbj 6:iJjJI (j-o IjJJ |»^ jJI li* (jl CjLto"^ jjj L j«.iajixJI dilj Si jJW c_)jikil j^"^l ^j^l 

: jj5^ Jl dU j Jjjj>o LULSjU (jl5 (jl jlLs t S "—" Sj^Lc JaS AlA^ uj^j jl—^iJ' 



Dinn txt 
Dinn i 
i = 1 

Do While (Mid(List1 Text, i, 1 "-" <> (( 

txt = txt & Mid(List1 Text, i, 1( 

i = i + 1 
Loop 

Msg Box txt 



AV 



m 



p 



txt 

. (Val(txt 6* pjxi^ 

. JjJjOJIj (ji^l ,_5jjio^ J lia u^'i 

. L^l ij>-L:>JI jJlC (jlSLo (jl (>o l.^o.1.V."....'.'' cIjuj*- iJlj J dLIj Jjy jjSfl lia l.u5.o.i is -s- -s- 

I j iojliJI ^l>*"^l J IjjJl^ 



SQL = "select * from tb_category where nanne="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox t '^Tlwi jii^i !>u>3 L ^ i} jj>.y vbExclamation + 

arable" 

Text1 .SetFocus 
Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 .Text( 

Exit Sub 
End If 



^^Ic j_jJt*II ^^J-> u'jj-^'^ ' T3 jl T2 (J->>~Jl lia JI i_iLaiII ji^^^l ^jjfJI 

txt 



If T2.RecordCount <> 0 Then T2.MoveFlrst 
For I = 0 To T2.RecordCount - 1 

If T2!Number = Val(txt) Then Exit For 

T2. Move Next 
Next i 



ii 



AA 



m 



T2.Edit 

T2!Name = Textl.Text 
T2. Update 



: JjjjOJI jjJ JjLSJI -ro-^ >i!Jjjj 



If List1 .Listlndex = -1 Then 
Msg Box . "iji vbExclamation + arabic . 

"jjjju" 

Exit Sub 
End If 

If Text1 Text = Then 

vbExclamation + arabic 

Exit Sub 
End If 

Dinn txt 
Dinn i 
i = 1 

Do While (Mid(List1 Text, i, V-- <> a 

txt = txt &Mid(List1 Text, i, 1( 

i = i + 1 
Loop 

If lbl_nanne. Caption -^i^Sji ^lo^- = Then 
'edit category... 

SQL = "select * from tb_category where name="' & 
Text1 Text & 



Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox c '^tL-i ys^\ !>u>3 l ^"ii ^ iS vbExclamation + 

arabic" ^ 4iLs)l" c 

Text1 .SetFocus 
Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 .Text( 

Exit Sub 
End If 

If T2.RecordCount <> 0 Then T2.MoveFirst 
For i = 0 To T2.RecordCount - 1 

If T2!Number = Val(txt) Then Exit For 

T2. Move Next 
Next i 

T2.Edit 

T2!Name = Textl.Text 
T2. Update 

Else 

'edit factory... 

SQL = "select * from tb_factory where name="' & 
Text1 Text & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4.RecordCount <> 0 Then 
MsgBox t '^l Lwi !>la3 t ^ 4j jjj^ vbExclamation -•■ 

arabic" 

Text1 .SetFocus 
Text1 .SelStart = 0 
Textl.SelLength = Len(Text1 .Text( 

Exit Sub 



End If 



If TS.RecordCount <> 0 Then TS.MoveFirst 
For i = 0 To TS.RecordCount - 1 

If T3!Number = Val(txt) Then Exit For 

T3. Move Next 
Next i 



TS.Edit 

T3!Name = Textl.Text 
TS.Update 

End If 



Refresh_Me 
Text1 Text" " = 



View = False 

. LuL^ 4ij.>o LUli "ilj 4Jl>J ■'J^J j5^Lju (_3j~< Ijj^Ij 



Dinn sure 

sure = MsgBox t 83^ .1*^1 ^LjaJi j^^s di^l jsbu, oji >") 
vbExclamation + vbYesNo + arabicci ^j^i ^h- . 
If sure = vbNo Then Exit Sub 



Slj^kJI il^ JjLSJI ■to^, ■^■^3 



If List1 .Listlndex = -1 Then 
Msg Box ."'y vbExclamation + arabic . 

"ijjjfc" 

Exit Sub 
End If 

Dim sure 

sure = MsgBox ^ "? sjj* ^j^i ^Ljaji j^js di^f jsli, ojf >") 
vbExclannation + vbYesNo + arabicci ^j^i jasb- ^ 
If sure = vbNo Then Exit Sub 

Dinn txt 
Dinn i 
i = 1 

Do While (Mid(List1 Text, i, 1 "-" <> (( 
txt = txt &Mid(List1 Text, i, 1( 

i = i + 1 
Loop 



If lbl_nanne. Caption -^i^Sji ^u>«" = Then 
'delete category... 

If T2.RecordCount <> 0 Then T2.MoveFirst 
For i = 0 To T2.RecordCount - 1 

If T2!Number = Val(txt) Then Exit For 

T2. Move Next 
Next i 



T2.Edit 

T2!View = False 
T2.Update 

SQL = "select count(*) as mycount from tb_product where 
category=" & Val(txt"" & ( 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T2. Delete 
T4. Close 

Else 

'delete factory... 

If TS.RecordCount <> 0 Then TS.MoveFlrst 
For 1 = 0 To TS.RecordCount - 1 

If T3!Number = Val(txt) Then Exit For 

T3. Move Next 
Next 1 

TS.Edit 

T3!View = False 
TS.Update 

SQL = "select count(*) as nnycount fronn tb_product where 
factory=" & Val(txt" - & ( 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!mycount = 0 Then T3. Delete 
T4. Close 

End If 

Refresh_Me 
Text1 Text" " = 



. Ji iM J^>t 4::tLlij4l ^ progl0.zip faijUl ii t tl h < ^ 




MaskEditsbl 

. Sjj>jJLj |»I JjjI^L JJaJI Jj> JjJ.>aJ Option L^Ljjoj . s-lj^l jl ijjiLlI 4jjiJI !f 

. sjt*^ Value=True i^ii^ 
T5 



Set T5 = D1.0penRecordset("Tb_Sel_Bay", 
dbOpenTable( 



Microsoft Masked Edit sb-^i Ctrl+T ^i^l^l ^ ... c% 

Control 6.0 

Custem 



: t ^jLjLII 4_>JjlaJ i_ju«<1Jl1I j3:»«»<juJI (_jjJlj i ForHTiat 

dd/mm/yyyy 

cjMi-jil ijijjis jj.>a~< (^-^J'i ( JL^J^tl ) 4j-3L>JI oia jj^' : Mask 

: J5...tiJL ^Ui J.;5...ti.".l fl- jajii |»jiKJu«o i_ij~^3 |»L3 jl (^_j~< ^l-j^ LliSfj t Ujocj 

####/##/## 

(iiji cj^i : Prompt Char 



. UL*-"^ <a:>uijjj |»^Aju^ s^-^^'i Refresh Me y,\ 'ulsI "i^ 



SIjI (jl jAj "if Jjj»-j J SIjSII sia J-oil . . . DTPickOr SIj! |»jiKJu^l jJ Ijli 

ji Lo t j^"^ ji^j*- i_«JjL>>j ij2>yt}\ k_>jL./i (jSj t (jj^LiL ^ji^i ' DTPicker 
. MaskedEdit 



5-iLiII sIjajL^I^I v«^i5I^i MDIForiTll Jl j>y^ C)% 



Private Sub Operation_Click(lndex As lnteger( 
If T1 .RecordCount = 0 Then 

MsgBoX IsLsl — SiLiI jjs>-\ ojjjj»- icLiu SiLi'i t L^jaJ (jl J-^-y 

. "ipUuVbExclamation + arabic 

Exit Sub 
End If 

Select Case Index 
Case 0 

Frm_Sel_Bay. Ibl_nanne. Caption xa^ i^ui" = 

Frnn_Sel_Bay . Refresh_Me 
Frm_Sel_Bay.Show 1 
Case 1 

Frm_Sel_Bay.lbl_nanne.Caption%ij 

Frnn_Sel_Bay.Refresh_Me 

Frm_Sel_Bay.Show 1 
End Select 
End Sub 



? Refresh Me 

iji jjl i^^jic i^yj>-j^ LaS^ t O^^^l ^I..A;.ll ^^^jjjjo ^LajJl ^LajU s-Jj ^^jic jj"^! li* i^yj>^ 

^^UJI ^jUI Jl iaLiI Ijloc J5 ^ ^jUI UjSJj c j^L*JI ^jUb ^jbJI iili- 

: ^bJI JiuiJb 



Public Sub Refresh_Me() 
Combol .Clear 

For i = 0 To T1 .RecordCount - 1 
Combol .Addltem T1 IName 
TI.MoveNext 

Next i 



p 



Combol .Listlndex = 0 

Dim Myday, Mymonth, Myyear 
Myday = Day(NoW( 

If Len(Myday) = 1 Then Myday = 0 & Myday 
Mymonth = Month(NoW( 

If Len(Mymonth) = 1 Then Mymonth = 0 & Mymonth 
Myyear = Year(NoW( 

MaskEdBoxl Text = Myday & 7" & Mymonth & 7" & 

Myyear 

End Sub 



= |Jj |_5^'^' '3-?^' ^ dUjj LlaS ljU Lol L Loj^^Ao Jj'^l ^jJfcJI jJJJ 

. syiLxo DateTime.Date 

^1 DD/MM/YY 

. ^Lijji J Long Short 

(> c Y jl ^ : !>lio Llik^j ji (Day(NOW Jio laJju (j^ 11^ « 4iLi.l jlc Lof 

. ^i^^ijj j Unload Me j-u^i Jjl (J«UJ ^ 



(j"^lj 

^jju |^jjj>- diljj i « (j_jSj (jl (jfLo-ji) jj«-»Jl Lol L 'UaS^ J^jI 4j| (jj jShj (jf Jj'i ^IjjJI J 
. 'il (j»uJ s-lj-iJIj (^hJ' CjLjioj«J <da3L>5^ ^LjjjJI |»lj.>a~(l |»J.>oL«<jJJ 



If Val(Text2.Text) <= 0 Then 
MsgBox j^ji (> r vbExclamation + arable lai^i 

Exit Sub 
End If 



<1V 



Buy J Sel 



If lbl_nanne. Caption iiur = Then 

BUY 
Else 

SEL 
End If 



SEL J 



Count 



TI.MoveFirst 

For i = 0 To T1 .RecordCount - 1 
If T1 INanne = Connbol Text Then Exit For 
TI.MoveNext 

Next i 

Dim cnt 

cnt = Val(Text2.Text( 

If Option2. Value = True Then cnt = cnt * T1 !Box_count 



ji (^jJlj ' jjjJl ^^^ic (_5jjL>i^ S?^'-? cnt jjAjlII p (jjj t icLAjJJ JUju"^! Lis 

With T5 



. Add New 

! product = T1 INumber 
! Date = MaskEdBoxLText 
! Count = cnt 
! price = Val(Text1 .Text( 
! kind = 1 
Update 
End With 

TLEdit 

T1 ICount = T1 ICount + cnt 
T1. Update 



. LjJL> jiyl^ jjaJIj SjJjaJI |»LajL> ilUj j. 




llaj 


IVIsgBox & " : ipUuJi (> jj,.^ L ^ujl. y^i ol,:;" T1 ICount ' 
t 'oj^jvb Information + arabicij^i ^Uii" . 


& 




: SJ^JJ^ 4-iJ.oaJ I.1.;.^.o." >J1> 


UU^I 




Text1 Text" " = 
Text2.Text"" = 



: BUY ja^\ jj 

iAjiJI jSy (jj jS'Lij (jl Jl Sljl L"! J "^-j^ t jjj^ Jl SEL jjSfl lift 4jtiu 

. UL»- Bjjj»-_^I 4jj£IL 4jjjjj>j ilLxj Ljjp "^Ij t aJjaJI Jji ijjikll 



: cnt J i«<3l v^J^I Jl Jl^'^W BUY y>H\ Ijuu Sel j^i LIju ^ LaSj 



TI.MoveFirst 

For i = 0 To T1 .RecordCount - 1 
If T1 INaiTie = Combol Text Then Exit For 
TI.MoveNext 

Next 1 

Dim cnt 

cnt = Val(Text2.Text( 

If Option2. Value = True Then cnt = cnt * T1 !Box_count 



If cnt>T1!Count Then 

MsgBoX & " : S^yio ^1 iu^l" cnt & - : j^^l" & 

T1 ICount, vbExclamation + arabic 

Exit Sub 
End If 



With T5 
. Add New 

! product = T1 INumber 
! Date = MaskEdBoxLText 
! Count = cnt 
! price = Val(Text1 .Text( 
! kind = 0 
Update 
End With 



TLEdit 

T1!Count = T1!Count-cnt 
T1. Update 



^L>aj 4_jJjJ«JI |»Laj'l Jjflj ilLjjJI 



Msg Box & " T1 ICount " & 



c'Bj^jVb Information + arabic 



5j^JJ>- 4_>1oaJ I.1.;.^.o." >J1iUL>JI ^y>->j 



Text1 Text " " = 
Text2.Text"" = 



LJbJi jjijSii ( iiyi sjjuc t ^ Ltiac ) (ijj J v^'i Frnn_Show ji \jx>^ (ij'iij 



Frnn_Sel_Bay. Ibl_nanne. Caption i^ui 

Frnn_Sel_Bay . Refresh_l\/le 
Frnn_Sel_Bay.Connbo1 .Text = Text1 Text 
Frnn_Sel_BayText1 = Text4Text 
Frnn_Sel_Bay.Show 1 

Refresh IVie 



"ii u (> a ^1 Jk*ji t Frnn_Sel_Bay ^yji ij*-u j Uw- juj> « » 
. liul ( Tb_Sel_Bay Jja» > ^ulji sj^cLs j Uul ikiKii liAj 



Frnn_Sel_Bay.lbl_nanne.Caption%i^ 

Frnn_Sel_Bay . Refresh_Me 
Frnn_Sel_Bay.Connbo1 .Text = Text1 Text 
Frnn_Sel_Bay.Text1 = Text4.Text 
Frnn_Sel_Bay.Show 1 

Refresh Me 



4^LiiI ^ytuls jLftI jjlj"^! sla (^,1 ciju:*- 



SIjI J dUjj . L^JJiJ k_jjikll cjLLojJI ^jIj Jl 4iLil ( s-lj^l cjLI&c — ^^^1 

MaskedEdit 



. 5jjjij>JI ijiojJI jl ^jl^l k_ji-<^ CJi*^' 

. Frnn_Sel_Bay2 (.^^i 



. MDIChild = True 'i^i^ j^- ^yii ii^J "^j 
. MDIFormI 

Frm_Sel_Bay2.Show 



L Refresh_Me ^^^j^j jUvSjii^^ Fornn_Load j 

. — ! Jaj jjSII lift V'f-' 1*^' 1*^ ~ ^l-^ -^i jj l-*^ I jl l-*^ jbySll JslaJu St 



Me.Height = 4335 
Me.Width = 5895 

Me.Left = ((MDIFormI .Width - Me.Width) / 2( 

IVIe.Top = ((IVIDIFormI .Height - IVIe.Height) / 2) - 400 
IVIe.Show 



Dim IVIyday, IVIynnonth, IVIyyear 
IVIyday = Day(NoW( 

If Len(Myday) = 1 Then Myday = 0 & Myday 
Mymonth = Month(NoW( 

If Len(Mynnonth) = 1 Then Mymonth = 0 & Mymonth 
Myyear = Year(NoW( 

MaskEdBoxl .Text = Myday & 7" & Mymonth & 7" & 
Myyear 



Refresh Me 



: Refresh Me IjL, ^ cJ^\ 

Flex 



If Optioni .Value = True Then 

SQL = "select count(*) as cnt from tb_sel_bay where 
kind=0 and date=#" & Format(MaskEdBox1.Text, 
"mm/dd/yyyy "#" & c 



Else 

SQL = "select count(*) as cnt from tb_sel_bay where 
kind=1 and date=#" & Format(MaskEdBox1.Text, 
"mm/dd/yyyy "# " & c 

End If 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 
MyCnt = T4!cnt 



Genral j MyCnt^i ui^ ^^^^ 



MSFIexGridI 


.Clear 




MSFIexGridI 


.Cols = 6 




MSFIexGridI 


.Rows = MyCnt + 1 




MSFIexGridI 


.Row = 0 




MorlexOnd 


.Col - 0 




MSFIexGndl 


.Text"^" = 




MSFIexGridI 


.Col = 1 




MSFIexGridI 


.Text'^j" = 




MSFIexGridI 


.Col = 2 




MSFIexGridI 


.Text"icuji ^1 " = 




MSFIexGridI 


.Col = 3 




MSFIexGridI 


.Text'^jUi" = 




MSFIexGridI 


.Col = 4 




MSFIexGridI 


.Text"i«<ji" = 




MSFIexGridI 


.Col = 5 




MSFIexGridI 


.Text >ji" = 




MSFIexGridI 


.ColAlignment(O) = 


5 


MSFIexGridI 


.ColAlignment(l) = 


5 


MSFIexGridI 


.ColAlignnnent(2) = 


3 


MSFIexGridI 


.ColAlignment(3) = 


5 



MSFIexGrid1.ColAlignment(4) = 5 


MSFIexGrid1.ColAlignment(5) = 5 


MSFIexGridl.ColWidth(O) = 


500 


MSFIexGrid1.ColWidth(1) = 


500 


MSFIexGrid1.ColWidth(2) = 


1500 


MSFIexGrid1.ColWidth(3) = 


1200 



. Refresh_Me ^i^i IjJju j \jj> 



j^T Jl j-^w. jji (j'jj-^' J '-^j ' icjii ijSj |»j Ijl T5 JjjjfcJi J j->>~. Jji Jl jijuj |»j 

. jjjjkji J i-ju^udi ^jijJij Kind 4j (iiii j->wJi (^jj j->^ 



Sub Refresh_l\/le() 
Flex 

Dim Key, n As Integer 
n = 0 

If T5.RecordCount <> 0 Then T5.MoveFirst 
If Option 1 .Value = True Then 

Key = 0 
Else 

Key = 1 
End If 

For i = 0 To T5.RecordCount - 1 

If T5!kind = Key And Format(T5!Date, "dd/mnn/yyyy") = 
MaskEdBoxl .Text Then 
n = n + 1 

MSFIexGridl.Row = n 
MSFIexGridl.Col = 0 
MSFIexGridl.Text = n 
MSFIexGridl.Col = 1 
MSFIexGridl.Text = T5!Number 
MSFIexGridl.Col = 2 



SQL = "select name from tb_product where number=" 
& T5!product" " & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

MSFIexGridl.Text = T4!Name 
T4.Close 

MSFIexGridl.Col = 3 
MSFIexGridI Text = T5!Date 
MSFIexGridl.Col = 4 
MSFIexGridI Text = T5!Count 
MSFIexGridl.Col = 5 
MSFIexGridl.Text = T5!price 
End If 

T5. Move Next 
Next i 
End Sub 



Refresh Me j^f ^si-A^ '■^jj^ . ( j^Ai; ) yj j ... Lajj j^'^i ii» •^^^^ j.* 

Varibale 
. Public 



Public Num As Integer 



. Lable 



p 



If MSFIexGridI .Row = 0 Then Exit Sub 

MSFIexGridl.Col = 1 
Frm_Edit_SP.Num = MSFIexGridI .Text 
MSFIexGridl.Col = 2 

Frm_Edit_SP.Label3.Caption = MSFIexGridI .Text 
MSFIexGridl.Col = 3 
Frm_Edit_SP.MaskEdBox1.Text = 
Fornnat(MSFIexGrid1 .Text, "dd/mm/yyyyc' 

MSFIexGridl.Col = 4 

Frm_Edit_SP.Text2.Text = MSFIexGridI .Text 
MSFIexGridl.Col = 5 

Frm_Edit_SP.Text1.Text = MSFIexGridI .Text 

Frm_Edit_SP.Show 1 
Refresh Me 



. JjJj«jJI 4jJjuC |»j1jL«/ i_«jS^ jjj J JjJJfcJI Ji (j"^' JJ<jJj 



If Val(Text2.Text) <= 0 Then 
MsgBox L-i^i ju^ji (> r vbExclamation + arable iiur c 

Exit Sub 
End If 



: 4JL:>JI 4jLj«JI i_jL>L^ J->>~<JI Jl ^ 



If TS.RecordCount = 0 Then Exit Sub 
TS.MoveFirst 

For i = 0 To TS.RecordCount - 1 

If TSINumber = lbl_nunn. Caption Then Exit For 

TS.IVIoveNext 
Next i 



|»j (jjj t 4jioJ«JI i'jA Jj5 AjIp Lo5 ^LajSlI SjLcL |»_jHj (jl oia JjJjiIII SjIaC (jjjti u'^'j 

. IjujAj ( OJjJJfJI 4jiojJI 4iLal t iojjiJI iJjjJI uij->- ) ^^uJI ijiaC jaiij 



: Ljikll icLi>jJI Jl "^jl JjiliL- ljJ 



If T1 .RecordCount <> 0 Then T1 .MoveFirst 
For i = 0 To T1 .RecordCount - 1 

If T1 INunnber = T5!product Then Exit For 

TI.IVIoveNext 
Next i 



JLill JiLiJL dJjj T5 



lfT5!kind = 0 Then 

BUY 
Else 

SEL 
End If 



Buy J Sel ^ 

: iku^l 



Sub BUY() 

If Val(Text2.Text) > T1 ICount + T5!Count Then 
MsgBox & " : s^yio ^ ^1 i^i" Val(Text2.Text - & ( 

iT1 ICount + TSICount, 

vbExclannation + arabic 

Exit Sub 
End If 

TLEdit 

T1 ICount = T1 ICount + TSICount 

T1 ICount = T1 ICount - Val(Text2.Text( 

T1. Update 

With T5 
. Edit 

! product = TIINunnber 
! Date = MaskEdBoxLText 
! Count = Val(Text2.Text( 
! price = Val(Text1 .Text( 
! kind = 0 
Update 
End With 

IVisgBox & " TUCount "& 

c'sj^jVbinfornnation + arabic 

Unload Me 
End Sub 



Sub SEL() 
TLEdit 

T1 ICount = T1 ICount - T5!Count 

T1 ICount = T1 ICount + Val(Text2.Text( 

T1. Update 

With T5 
. Edit 

! product = TIINunnber 
! Date = IVIaskEdBoxl.Text 
! Count = Val(Text2.Text( 
! price = Val(Text1 .Text( 
! kind = 1 
Update 
End With 

IVIsgBox & " T1 ICount " & 

. "5j^,vblnfornnation + arabic 

Unload Me 
End Sub 



MSFIexGrid j sj^^i ^ly^i 
(j"^! jjjj ... i^j-jj^yi cj.niij jjjjji jj»L;>o ^ 0 ojj^Sii jjjy (_v<ijj«jLj t Mycnt 

: SJIjJI sis 



Sub Clear_Color() 

For i = 1 To MyCnt 
For j = 1 To 5 
MSFIexGridl.Row = i 
MSFIexGridl.Col = j 

MSFIexGridl.CellBackColor = QBColor(15( 

Next j 
Next i 



L dLoj Jijj>a3 J (jijJ^i J>=*- ti'i-ojJjiii (> JJ31 uAh^i (QBColor(15 ^1 duj*. 

: J\3]\ ^jJI 

http://www.c4arab.conn/showlesson.php?lesid=2320 

. Lo j^kia 

^LUl JjjaJI (jj IjjlL.< LjyjJ Lo L Click JjJJ>JI jAjJI jjI j Liul djj.>a-^ IjLo 



If MSFIexGridI .Row = 0 Then Exit Sub 
Now_Row = MSFIexGridl.Row 
Clear_Color 

MSFIexGridl.Row = Now_Row 
For i = 1 To 5 
MSFIexGridl.Col = i 

MSFIexGridl.CellBackColor = QBColor(12( 
Next i 



. Row=0 J Uuj ujf (> 

If MSFIexGridI .Row = 0 Then Exit Sub 
Dim sure 

sure = IVIsgBox c "? j^Iujl ^.^ >")VbQuestion + 

vbYesNo + arabicc" . 

If sure = vbNo Then Exit Sub 



sure = MsgBox 

c ^j^i (.1 ( ipUjjvbQuestion + vbYesNoCancel + arable . 
If sure = vbCancel Then Exit Sub 



: i_jjlkll Jj^^Jl Jl OjbJl ^ US' Jajuu (j'ilj 



MSFIexGridI. Col = 1 

If TS.RecordCount <> 0 Then TS.MoveFirst 
MsgBox MSFIexGridI. Text 
For i = 0 To TS.RecordCount - 1 

If T5!Number = MSFIexGridI .Text Then Exit For 

T5. Move Next 
Next i 



^UJI J5...tiJL diljj L dUj Jjjv |»jAju^ L^jIc SjuIjOII ^LjlUI ^ LfjJIjI jjjj Ijl (j^lj 



If sure = vbYes Then 
If T1 .RecordCount <> 0 Then T1 .MoveFirst 
For i = 0 To T1 .RecordCount - 1 
If T1 INumber = T5!product Then Exit For 
TI.MoveNext 
Next i 
TLEdit 

Select Case T5!kind 
Case 0 

T1 ICount = T1 ICount + T5!Count 
Case 1 

T1 ICount = T1 ICount - TSICount 
End Select 
T1. Update 
End If 



T5. Delete 



. iuL5 Refresh_Me y>\ ^sl^ d'^ i^i 



Refresh Me 



. ci^u^i , \ Li.Liu tj^iiKii Refresh Me vol a sja^ ci^-^lj^ 

: ^l^"^l ei^l^l jj'^l 5iLJ.I y> dLLc U J5 l Lx^ Jj^I JjJjOJI 



MSFIexGridl.Row = 0 



4jiojJI sla Jj«j ( s-^^"^ ) ^3^1 i_«l< dlljj 



ji jSoJi Jj5 ^ui j^Sfi ^^-id^ dUii t j Frnn_Wait y> ^ijji j^j^oji 



Frnn_Wait.Show 

Frnn_Wait.ProgressBar1 .Max = TS.RecordCount 
Frnn_Wait.ProgressBar1.Min = 0 
Frnn_Wait.ProgressBar1 .Value = 0 



: ^llJI y>H\ J ^1 4iU Ji^lAjj 



Frnn_Wait.ProgressBar1 .Value = 
Frnn_Wait.ProgressBar1 .Value + 1 
DoEvents 



. Frm Show 



Unload Frm Wait 



. J II >f^l rt?r< Jbj>t tltLldj^f ^ progl2.zip hijU( il t tl h < ^^-d 




Dim sure 

sure = MsgBox ^vbYesNo + 

vbExclamation + arabic 

If sure = vbNo Then Exit Sub 

sure = IVIsgBox t"? cjj u > ^ ^ij^i uJ^ u^iiil iji") 

vbExclamation + vbYesNo + arabiccei^^i ^h- . 
If sure = vbNo Then Exit Sub 



^^SX^ i_ij~> ^-'>^ ' Index 4.j^L>- 4.0^ >-ju>i^ 4iJjL>JI CjLu^^AjJI ^ IJjlL>> |>J (jjj 

t sULLlC i_3i^ |»JL> (jjJ' JjJ^I ' ''^ j-g-j^." 4JL.(jJI <Ua3 LjuiSJ t JaAS Ij^lj iljJ>l 



Sub DEL(ByRef Table As Recordset, ByVal msg As 
String( 



T1 RecordSet Table Jjiaj~o (_3j~< s-ij^"^! j liji ^^jj^ iia 

. j-fJal^ ^1 jjj->>jJI 4JL<j jAj msg Jl AiLal ( . . . T2 jl 

"f^^jJaj s-ij^"^! j^Li- Table j <t)s>^ ^jj^iAjJi ByRef 



Sub DEL(ByRef Table As Recordset, ByVal msg As 
String( 

If Table. RecordCount = 0 Then 
MsgBox t'Vj^ ^^Lu (if r vbExclannation + arable o^^- 

Exit Sub 
End If 

Dim sure 

sure = MsgBox(nnsg, vbYesNo + vbExclannation + arable ^ 

If sure = vbNo Then Exit Sub 
Table. MoveFirst 

For i = 0 To Table. RecordCount - 1 

Table. Delete 

Table. MoveNext 
Next i 

MsgBox vblnformation + arable 

"(_3l>JI 

End Sub 



: ^IjJI J_^l ia:*-'^ . 5-1 yiU ^«ajJJ jj ji S jl « iajS j i_«JjLi>o 4ji5Jj 



Sub DEL2(ByVal knd As Bytec 

If T5. RecordCount = 0 Then 
MsgBox c'Vj^ ^L3Lu (if "i" vbExclannation + arable 

Exit Sub 
End If 



TS.MoveFirst 

For i = 0 To TS.RecordCount - 1 

If T5!kind = knd Then TS.Delete 

T5. Move Next 
Next i 

MsgBox vblnformation + arabic 

"i_3i>JI 

End Sub 



i^LjLII J5...tJL JjjjjJl Ij J^i (jj 



Select Case Index 
Case 0 
DELT1 



01 ' 



Case 1 
DEL T2"? 

Case 2 

OEL T3"? jlj.o.u.i'il jjjj Jj6 t ^LsjJl (^^i*^ ijj-* (jjjjjil (jl" t 

Case 4 

DEL2 0 
Case 5 

DEL2 1 
End Select 



ox^ L»jLsuL>-l (jSLoj i^^l JljjJI (jj ^uii!.! I cjjj>-jJ ^U^I Jl cjj^ jJ : ioLa 4J3l>-!>Lo -» 

Array . 4i;>ji 



. JttnifiHI^ ^ AJijX CiLLk^i ^ progl3.zip «.ijUI 4JLSUa^ 



ii 



. 5 ^ Ca ^ 



. Frnn_User 



Select Case Index 




Case 0 




Frnn_User.Text1 .Text = 


lnfo(2( 


Frnn_User.Text2.Text = 


lnfo(3( 


Frnn_User.Text3.Text = 


lnfo(4( 


Frm_NewUser.Show 1 




End Select 





. jj J Unload Me y>\^ 

'. 0"*^'^ 
(>) j5LjJI djj^ SiLal sf 



If Text1 .Text = Then 
Text1 .Text\/jji ^ui ^^u^- 

End If 

lfText2.Text = Then 



Text2.Text = "0" 
End If 

If Texts. Text = Then 
Texts. Text >^ 

TextS.Text = Texts. Text & vbNewLine ^ ^^i s^Uj diiisLoL" & 
i:ui^i i:j»www.vb4arab.conn/vb" 

TextS.Text = TextS.Text & vbNewLine lui^ / & 
^j^^i ^ ^u^iHannnnada2091 (gHotmail.conn - 
End If 



Edit 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTable( 

T4.Edit 

T4!Nanne = Text1 .Text 

T4!Telephone = Text2.Text 

T4!l\/lore = TextS.Text 
T4.Update 



jULjJI Sj.cLS t3!>Lclj InfO 43y^\ cjLojLm djjj^' 



T4.MoveFirst 

lnfo(2) = T4!Name 
Info(S) = T4!Telephone 
lnfo(4) = T4!More 

T4. Close 



start vIjj^I !-Lcjju«<Ij 'LiiLiiii s-LLa-l 



Unload Me 
Call Start 



jjjjL! JaS^Ljj diLoJS (jjj.>vjLl dil^^jjLlo Al..jfL' « 



Dim A1, A2, sure 



A1 = lnputBoX("jj^i 'Lo}s jjuju" t 'io^jAiijj^i 4j5 jj^ji !>u«3 ") 

If A1 =""Then Exit Sub 
If A1 <> lnfo(1)Then 
MsgBox c"! iiLLi- jjjj 4jJ5" vbCritical + arabic'jj^i 4j5 

Exit Sub 
End If 



A1 = lnputBoX( "jj^i c "Sjja>ji jj^i ioJ5 jj^jI") 

If A1 =""Then Exit Sub 
If Len(A1 ) < 3 Or Len(A1 ) > 1 2 Then 
MsgBox r vbExclamation + 

arabic" 

Exit Sub 
End If 



lfA2 = "" Then Exit Sub 
If A1 <> A2Then 
MsgBox 6:^Lki,^ tuJ5" vbCritical + arabic 

Exit Sub 
End If 



; "LaiS^ ^^tJJJ*-* J^l^'-' ilL-'j jlp^.hl St 



sure = MsgBox r^^j.] )VbYesNo + 

vbExclamation + arabic 

If sure = vbNo Then Exit Sub 



ojjjjjJI ioISJL L^jjijj cjULjJI oj^Ls ^ 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTable 
T4.Edit 

T4!PassWord = A1 
T4.Update 



T4. Move First 

lnfo(1) = T4!PassWord 

T4.Close 

MsgBox & " : ^ jj^i i»J5 lnfo(1), vblnformation + 

arabic 



. J II tni et^tU ^ Aj}X CiLLk^i ^ progl4.zip ^ijUl 



. LuLftJI j^Lic JUS'I ^Jij>- \j2y ( ^LjI:*-'^! ^>~*jJI ) iojUJI jjbxjuu*, 

. Frm Printer 



Case 5 
If Printers. Count = 0 Then 
IVIsgBox I 'jL^b ii^ ^bvu, j^y; "i" vbExclannation + 

arabic" 

Exit Sub 
End If 

Frm Printer.Show 1 



: ioiiiji J jL^b iLsoii ^ d,! a. i^Liii si^ Fornn_Load v±.j^ j » 



List1 .Clear 
Dim I 

For I = 0 To Printers. Count - 1 

List1 .Addltem Printers(l).DeviceName 
Next I 



If List1 .Listlndex < 0 Then Exit Sub 
Set Printer = Printers(List1 .ListlndeX( 

Unload Me 



Unload Me 



dILijj \..iJ>JLu3j dUfLajj 4jijliaJL Siboll i_ijUj>jJl |3j>l U SiLiI Printer (jSlSJl iSy^ 

Xxj>-\yi (jSjj icLixii (jjLs' jjj> jjj^i 4i_yjj t Printers icjjj>jji |»ij.>a-^i Lju! dus^jj t 

http://72.14.207.104/search?q=cache:1iNBcyeAXGwJ:ww 

w.vb4arab.conn/vb/showthread.php 

ji^>a3 ^jjH iLLijiGoogle 

. ( iL>jjJl 4jjjlS Aj>^jj J-*^ ) V''-*^ (J '^L'jJj'-ll U^^"^ 




• j'jj^ Index 4j-^Li>- 1^ dUj j (^jj^ixj 

jJJJ>-i ^ jrw'ill (j^iijj Sljl (jj jJi^l 4j.0bi..i." ^UJ (_jjJI 4j«^L>J| Index 4_i^L>- i-jj^ ijij 

. ^\^s^\ (> Array 

. CjIjJ"^! ois (^^JJ^ d)jl^ Lsui <U-3 



L True MDIChild 



js. Caption s^u^ j (ijo^- ^« ji « (> Index Command 1 

-/+ ^ Caption Command2 

. / 1 * t - c + : ci;LL*ii ^ (i^- r ji « (> Index Commands 

. = ^ esjo^j Command4 
^ CE yiiiij^jji ^ (i^- Y « (> Index ^ esr^j Commands 

t (iHj^ MS ^ r « (> Index ^ e5>i*^i Commands 

MR 

Text1 

True Locked 



double 6^ Memory 
Boolean ^yji (> There JjSji f^^i ^ First 



Dim First As Double 
Dim There As Boolean 
Dim Memory As Double 



. iuic jsjjvAii jjjj Caption ji siUsi = (>ajji j->^ uj! 

: Siji 5jLiji LuLs "iij t False ^ (ii^^ There 



If There = True Then 
There = False 
Text1 Text" " = 

End If 

Text1 Text = Text1 Text & Connnnandl (Index). Caption 



Calc Me 

j sjukIi io!>bji ^ t djjj 5iLiij t 4JUJ1 First J t True ^ There 



. Text2 


Call Calc_Me 




There = True 




First = Val(Text1Text( 




Text2Text = Connnnand3(lndex). Caption 




L^^L,! Text2 jfs^ tijjij t Calc_Me 




: Text1 j Text1 ^ First 




Select Case Text2Text 




Case"+" 




Text1 Text = First + Val(Text1 Text( 




Case"-" 




Text1 Text = First - Val(Text1 Text( 




Case"«" 




Text1 Text = First * Val(Text1 Text( 





Case"/" 

Text1 Text = First / Val(Text1 .Text( 
End Select 



OverFlow ,I 



On Error Resume Next 



: Err (1,515^1 J U=iiJI c:^U_^ 



If Err Then 

MsgBox Err. Description, vbCritical & - Ilj^" cErr 

Err.Clear 
End If 



There=True Text2 



Call Calc_Me 
There = True 
Text2.Text"" = 



Off^CE^C ^ ^yj^ ConnnnandS j^ijf a% 



Select Case Index 
Case 0 
Text1 Text" " = 

Text2Text"""" = 



Case 1 
Text1 Text" 

Case 2 

Unload Me 
End Select 



MC J MRj MS^iy i^lj 



Select Case Index 
Case 0 
Mennory = Val(Text1 .Text( 

Case 1 

Text1 Text = Mennory 

There = False 
Case 2 

Mennory = 0 
End Select 



^LcJjLjIj Index 4j-aL> aill J^aaj Uuic CUjij (jj iTk^Ja^Mj (jl LL>- dliSLajj 

Calc Me 



Case 7 

Frm_Calc.Width = 3105 

Frm_Calc.Height = 2640 

Frm_CalcTop = 0 ' MDIFormI .Height 
Frm_Calc. Height 

Frm_Calc.Left = 0 

Frm Calc. Show 



ii 



jj^juSJi ^ ikij. ii^j True cIa^ pyLi KeyPreview s^ti^ "^jfijuiGu- 

. |»j_j«Ji Key Press ^jj^ fj^' '-^^ J 

Ascii J j5 i_^jj<^ j-jji^^ Key Press ^jj^ (jl ijjjtj o'^ij 

: ^laji jiLiiL (Commandl (0 ^iii^ jj j^f (> ^ u 



Commandl (O).Value = True 



. iA + (jl t oV iA (> ULsjl ji>.b |.L5jS!l ^ dUjij 

: Key_Press j ^ui j^^sji ^y)=>^ ^jllji ii^uji 



If KeyAscii < 58 And KeyAscii >= 48 Then 
Command 1(KeyAscii - 48).Value = True 



jj YV (■ (^j"^' >^Lii4*J' tVjiojiTjtY t "tL^UJI ^jjj<^ i'\ ~3 l (j.su-sl>uLII (jj Jjjju JjiSLi (j'^lj 

Enter Esc 

: ^IjJI ^os:; dUj JJ^I (> 



Elself KeyAscii = 46 Then 

Commandl (10).Value = True 
Elself KeyAscii = 13 Then 

Command4.Value = True 
Elself KeyAscii = 42 Then 

Command3(2). Value = True 
Elself KeyAscii = 43 Then 

Command3(0). Value = True 
Elself KeyAscii = 45 Then 

Command3(1). Value = True 



Elself KeyAscii = 47 Then 
Connnnand3(3). Value = True 

Elself KeyAscii = 27 Then 
Connnnand5(1). Value = True 



jL.<jji ijjsjsll^ (.s^'j Left ijij dUjj |»j.>a..«<ju«(j . Backspace j a i^^j^ij 



Elself KeyAscii = 8 Then 

If Len(Text1 .Text) <> 0 Then Text1 Text = 
Left(Text1 Text, Len(Text1 Text) - 1( 



« J II >i^l rt'tf Jbjj^ CfLi^jJlf progl6.zip t.ijU( ijLJliaidC 



Ui^^ Copy_2 J Copy_Me 



Select Case Index 
Case 0 

Copy_Me 
Case 1 

Copy_2 
End Select 



CommonDialog siji ^i^-ii-. o% 
u:l3 Picture MDIForm t Mj>j\^ 

. sijSji l Visible=False 

Microsoft CommonDialog Control Ctrl+T i^i^i sbSji i^u-^j 

.6.0 

: Copy_Me ^ 

: iLLx^"^! JMj S jLc i_ju5j (_3j-«< jj>^\ lis J 

On Error GoTo 1 1 

: ^ S 

Exit Sub 



Cancel 

: ^_^LiJl JiLiJL LLi^ 



CommonDialogI .CancelError = True 






CommonDialogI .CancelError = True 
CommonDialogI .DialogTitle-jii^jj ^li^i yj^r 

CommonDialogI .Filter = "Access File|*.mdb " 





CommonDialogl .ShowSave 



c_iui Loas FileName Ij^\j>3\ j ^.iui + jL«jj j^lsji ^^"^1 li^yi sj^ j^^i-, 

. FileTitle jh^s 



If CommonDialogl .FileTitle = "" Then Exit Sub 

If Dir(CommonDialog1 .FileName) <> "" Then 
MsgBox c' jj^i jLji J (w^i vbExclamation + 

arabic'.i^ij . 

Exit Sub 
End If 



D1. Close 



FileCopy Folder & "db1.mdb", CommonDialogl. FileName 



Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=" & PassWord( 

SetT1 = D1.0penRecordset("Tb_Product", dbOpenTablec 

Set T2 = D1.0penRecordset("Tb_Category", 
dbOpenTable( 

Set T3 = D1.0penRecordset("Tb_Factory", dbOpenTablec 

Set T5 = D1.0penRecordset("Tb_Sel_Bay", 
dbOpenTable( 



^L>aj 4_iJ.olxJI |>Laj°L 4JL>>j ^ L>^^ 



MsgBOX & " : Jl ^L*!. ^ULJI ^ ^" 

CommonDlalogl .FileName, vblnformation + arable 



: j\3]\ jiLsjL Copy_Me ^SJ J^LSJI 



Private Sub Copy_Me() 




On Error GoTo 1 1 




ComnnonDlalogl .CancelError = 


True 


ComnnonDlalogl .DlalogTltle-jii^jj ^lslii ji^r = 


ComnnonDlalogl .Filter = "Access Flle|*.nndb "| 


ComnnonDlalogl .ShowSave 




If CommonDlalogl. FlleTltle = "" 


Then Exit Sub 



p 



If Dir(CommonDialog1 .FileName) <> "" Then 
MsgBox vbExclamation + 

arabic" 

Exit Sub 
End If 

D1. Close 

FileCopy Folder & "db1 .mdb", CommonDlalogl .FileName 

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=" & PassWord( 

SetT1 = D1.0penRecordset("Tb_Product", dbOpenTable, 

Set T2 = D1.0penRecordset("Tb_Category", 
dbOpenTablec 

Set T3 = D1.0penRecordset("Tb_Factory", dbOpenTablec 

Set T5 = D1.0penRecordset("Tb_Sel_Bay", 
dbOpenTable( 



MsgBox & " : Jl ^bfJL, ^ULJI ojjils ^ fj" 

CommonDialogl .FileName, vblnformation + arabic . 



: S S 



Exit Sub 
End Sub 



Copy_2 jA^\i>^jj 



. Save (> "^A. Open H[ 



On Error GoTo 12 

Connnnon Dialog 1 .CancelError = True 
Comnnon Dialog 1 .DialogTitle"Lyj=ai i^m y-^y 

ConnnnonDialogI .Filter = "Access File|*.nndb' 

Connnnon Dialog 1 .ShowOpen 



If CommonDialogI .FileTitle = "" Then Exit Sub 



If Dir(CommonDialog1 .FileName) = "" Then 
MsgBox . "^^ ^ulu Sj^ls vbExclamation + arable ^ 

Exit Sub 
End If 



Dim SuRe 
SuRe = MsgBox 

ji^-ii ^3 u > . yujivb Exclamation + arable + 

vbYesNOf" 

If SuRe = vbNo Then Exit Sub 



Sj^UJI t_jI>Jj L.^j.>J j»j t CliJJ>-j (j| JaA3 SiljAU 4j-^L>- Jjjjj ' SjJLsJI CjULjjJI Sj^li jlij 



D1. Close 

SetAttr Folder & "db1 .mdb", vbNormal 
Kill Folder & "db1.mdb" 

FileCopy CommonDlalogl .FileName, Folder & "db1 .mdb' 



. Start iJljJI j^jjLuj |»j info J Sjjjj>JI cjULJI uj-*^j ' Ijjj>j cjULJI Sacli ^aij 



Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=" & PassWord( 



SetT1 = D1.0penRecordset("Tb_Product", dbOpenTablec 

Set T2 = D1.0penRecordset("Tb_Category", 
dbOpenTablec 

Set T3 = D1.0penRecordset("Tb_Factory", dbOpenTablec 

Set T5 = D1.0penRecordset("Tb_Sel_Bay", 
dbOpenTablec 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTablec 

Info(O) = T4!User_Nanne 

lnfo(1) = T4!PassWord 

lnfo(2) = T4!Name 

lnfo(3) = T4!Telephone 

lnfo(4) = T4!More 
T4. Close 
Call Start 



^L>Jij 4_aJ.0LiJI jiLojU 4JL.IJ J g h tj 



MsgBox & " : (> ^UJ. 

CommonDialogl .FileName & Chr(13 & 



c'wujivblnfornnation + arabic-j 



: U5 J^LSJI 03^. Ij^i 



Private Sub Copy_2() 
On Error GoTo 12 

CommonDialogl .CancelError = True 
CommonDialogl .DialogTitle-L^i sj^^i olsl. = 

CommonDialogl .Filter = "Access File|*.mdb i 

CommonDialogl .ShowOpen 

If CommonDialogl .FileTitle = "" Then Exit Sub 

If Dir(CommonDialog1 .FileName) = "" Then 
MsgBox ci^uLu oj^Li vbExclamation + arable 

Exit Sub 
End If 

Dim SuRe 
SuRe = MsgBox 



•^1 ^3 u > c ijujivb Exclamation + arable + 
vbYesNOf" 

If SuRe = vbNo Then Exit Sub 



D1. Close 



SetAttr Folder & "db1 .mdb", vbNormal 
Kill Folder & "db1.mdb" 



FileCopy CommonDlalogl .FileName, Folder & "db1 .mdb' 

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder 
& "Db1.mdb", False, False, ";pwd=" & PassWord( 

SetT1 = D1.0penRecordset("Tb_Product", dbOpenTablec 

Set T2 = D1.0penRecordset("Tb_Category", 
dbOpenTablec 

Set T3 = D1.0penRecordset("Tb_Factory", dbOpenTablec 

Set T5 = D1.0penRecordset("Tb_Sel_Bay", 
dbOpenTablec 



Set T4 = D1.0penRecordset("Tb_User", dbOpenTablec 

Info(O) = T4!User_Nanne 
lnfo(1) = T4!PassWord 
lnfo(2) = T4!Name 
lnfo(3) = T4!Telephone 
lnfo(4) = T4!More 
T4. Close 



Call Start 

Msg Box & " : 6- ^^WJi 
Connnnon Dialog 1 .FileNanne & Chr(13 si* 
. wujivblnfornnation + arabicj' 



|3JL) (_3j~' 



Exit Sub 
End Sub 



. J II >r^l rtin 4::tLai>tf ^ progl7.zip faijUt il t tl h < ^^-d 




(_><aj (^j^ ' '-'Aj*' '-^J-^ ' 5«iiLiJI (3!>Lc"i jj L i±i.'>.iJJ jj Jl ijiLiJI sia j ^1jij>J 

Combol ji dUjj isui 
Combo2 

: k-josi^ fji*J' J "jM'' j^' Ji ' MDICHild lift jjc>ju«/ 



If T1 .RecordCount = 0 Then 
MsgBox 

c "ipUuVbExclamation + arabic 

Exit Sub 
End If 

Frnn Find. Show 



(_5 jji jj5ji (j*>Aj t jjjjkji ijjj^ 4-".0Lg.o (jj5-"i....i (3 jjij Create Flex ^iij^ lsuli^ j'^ij 

Frm Show 



MSFIexGridl.Rows = T4. RecordCount + 1 



On Error Resume Next 
MSFIexGridl.Rows = T4. Record Count + 1 
If Err = 3420 Then 

MSFIexGridl.Rows = 2 
End If 



: JjLSJI ■yPL.-fij Ij^j 



Sub Create_FleX() 

MSFIexGridl. Clear 
MSFIexGridl.Cols = 8 
On Error Resunne Next 
MSFIexGridl.Rows = T4.RecordCount + 1 
If Err = 3420 Then 
MSFIexGridl.Rows = 2 



End If 






MSFIexGr 


dl.Row 


= 0 


MSFIexGr 


dl.Col = 


= 0 


MSFIexGr 


dl.Text' 


Cll " = 


MSFIexGr 


dl.Col = 


= 1 


MSFIexGr 


dl.Text' 


r/ = 


MSFIexGr 


dl.Col = 


= 2 


MSFIexGr 


dl.Text' 




MSFIexGr 


dl.Col = 


= 3 


MSFIexGr 


dl.Text' 


erJi" = 


MSFIexGr 


dl.Col = 


= 4 


MSFIexGr 


dl.Text' 




MSFIexGr 


dl.Col = 


= 5 


MSFIexGr 


dl.Text' 





MSFIexGridl.Col = 6 
MSFIexGridI .Text' jj^r = 

MSFIexGridl.Col = 7 
MSFIexGridI .Text'ojjj^/sj^y = 



MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 
MSFIexGridl.ColAI 



gnnnent(O) = 5 
gnnnent(1) = 5 
gnment(2) = 3 
gnnnent(3) = 5 
gnnnent(4) = 5 
gnnnent(5) = 5 
gnnnent(6) = 5 
gnnnent(7) = 5 



MSFIexGridl.ColWidth(O) = 500 
MSFIexGrid1.ColWidth(1) = 500 
MSFIexGrid1.ColWidth(2) = 1500 
MSFIexGrid1.ColWidth(3) = 1500 
MSFIexGrid1.ColWidth(4) = 1500 
End Sub 



: Fornn_Load d^j^ j J^i u 



Me.Width = 5625 
Me.Height = 5400 

Me.Left = ((MDIFormI .Width - Me.Width) / 2( 

Me.Top = ((MDIFormI .Height - Me.Height) / 2) - 40 
Me. Show 



Create Flex 



: Connbo2 J Combol Jl iju^UIl j^LjjJI k-SJ-iu aj (2; 



Combo 1. Add Item 
Combol .Addltem "^yji" 
ComboLAddltem- 
Combol . Add Item " 
ComboLAddltem 

Combo2.Addltem">" 
Combo2.Addltem"<" 
Combo2.Addltem"=" 

Combol .Listlndex = 0 

. < J > (jJi 4JL>JI ols J (oULuJI (^jSf (=) "^1 Combo2 i> jLi*. 

: Combol Click i±jjj»- J ^laJI jj"^! .-jOSj lift J^l (> 

If Combol .Listlndex <> 3 And Combol .Listlndex <> 4 
Then 

Combo2. Listlndex = 2 
Combo2. Enabled = False 
Else 

Combo2. Enabled = True 
End If 

J k±jj^i J jjj<j (jjj t Refresh Me sLiii.^ ^lui ^j^i 

: OtO^j (i^ai:^: 'ii Frm_Show 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_product,tb_factory,tb_category where 
tb_product.category=tb_category.nunnber and 
tb_product.factory=tb_factory. number" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



bearcn 



Public Sub Refresh_Me() 
Call Search 

Create_Flex 

If T4.RecordCount = 0 Then Exit Sub 
Frm_Wait.Show 

Frm_Wait.ProgressBar1 .Max = T1 .RecordCount 
Frm_Wait.ProgressBar1.Min = 0 
Frm_Wait.ProgressBar1 .Value = 0 

T4.MoveLast 
T4.MoveFirst 
Create_Flex 

If T4. RecordCount <> 0 Then 
T4.MoveFirst 
For I = 0 To T4. RecordCount - 1 

Frm_Wait.ProgressBar1 .Value = 
Frm_Wait.ProgressBar1 .Value + 1 

DoEvents 

MSFIexGridl.Row =1 + 1 



MSFIexGridl.Col = 1 

MSFIexGridl.Text = T4.Fields("tb_product.Number(" 
MSFIexGridl.Col = 2 

MSFIexGridl.Text = T4.Fields("tb_product.nanne(" 
MSFIexGridl.Col = 3 

MSFIexGridl.Text = T4.Fields("tb_category.nanne(" 
MSFIexGridl.Col = 4 

MSFIexGridl.Text = T4.Fields("tb_factory.nanne(" 

MSFIexGridl.Col = 5 
MSFIexGridl.Text = T4!price 
MSFIexGridl.Col = 6 
MSFIexGridl.Text = T4.Fields("Count(" 

MSFIexGridl.Col = 7 
MSFIexGridl.Text = T4!Box_count 

T4. Move Next 
Next I 

MSFIexGridl.Col = 2 
MSFIexGrid1.Sort = 7 



MSFIexGridl.Col = 0 
For I = 0 To T4.RecordCount - 1 
MSFIexGridl.Row =1 + 1 
MSFIexGridl.Text = I + 1 
Next I 
End If 



T4. Close 



Unload Frnn_Wait 
End Sub 



. Search j^f ^JljS isy-^ u'^'j 

Select III Combol (jj JJ.>uJI ^^ic |»'>b<jL».'il 4loJ>- JjilxJ 4jIjjJI J 

: J\3l\ JiLiJL 



Select Case Combol. Listlndex 
Case 0 

Case 1 
Case 2 
Case 3 
Case 4 

End Select 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_product,tb_factory,tb_category where 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number- 



. SioJkJI sIa jik-l J dj.>aJIJ3jJ( i_AJ«Aju.( Ujl "^1 

: jj^i iJL>ji (ii Name 6* 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and 
tb_product.name='" & Text1 .Text & 



I ^ ile (iiii =tb_p rod uct. name » 

. Tb Product 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and 
tb_category.name="' & Text1 Text-' - & 



4i<j_3 Name 6* uji » 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and 
tb_factory.name='" & Text1 .Text & 



: 4ju\J\ ilUJI j iJ^Uiw^"^! iLojfc (^_j5j; li^j t Combo2 iaji jjj^j 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and count" & 
Combo2.Text & Val(Text1 .Text( 



I»!>ijiju^"il 'iLsf SjJ-*-"^! 4JL>JI Jj 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_product,tb_factory,tb_category where 
tb_product.category=tb_category.nunnber and 
tb_product.factory=tb_factory.nunnber and price" & 
Combo2.Text & Val(Text1 .Text( 



. J II >r^l ^ xjyX CiLikjXi ^ progl8.zip udXS ajlJUaji ^ 

4» 



) jJjAjJI ^jj JjJ.>jJ jLjjl>-I i^IjIj t ^LAjJI L^jS ij^y^ <LojL3 J| ^Ljl>Ji3 CIiLj^jjL^j 

. MaskedEditBox 5bi 
MsFlexGeid 

Index 

jJjSjJI j SjljL>Jll 4jI..AJI Jj^ CjLojIaj ^.Ji.'iJ LabelS (jjjllc CjLajjj (J*>J->- LAjI 

. ( j*-JI — 4jjiJI — ^jjJI — (^j-^l — ) 



p 



i»5Liii Index 

: ^IjJI J5...tJL dlJjj j-g-in.' <uic s-Ujj 



If T1 .RecordCount = 0 Then 
MsgBox 

c "ipUuVbExclamation + arabic 

Exit Sub 
End If 

Select Case Index 
Case 0 

Frnn_Report1 .Show 
End Select 



: ^lijj'i!! t^L^ Siji kjLj<.u..ji jjjAjJb (j^Li>ji pyii Form_Load ^jj^ j ui 



Me.Width = 4800 
Me.Height = 6615 

Me.Left = ((MDIFormI .Width - Me.Width) / 2( 

Me.Top = ((MDIFormI .Height - Me.Height) / 2) - 40 
Me. Show 



MaskEditBox 



i^^jAjjj j 4.*«AiI |»_JjJl ^j'^ JJ->j 



Dim Myday, Mymonth, Myyear 
Myday = Day(NoW( 

If Len(Myday) = 1 Then Myday = 0 & Myday 
Mymonth = Month(NoW( 

If Len(Mymonth) = 1 Then Mymonth = 0 & Mymonth 



> 4 V 



Myyear = Year(NoW( 

MaskEdBoxl Text = Myday & 7" & Mymonth & 7" & 
Myyear 

MaskEdBox2.Text = MaskEdBoxl .Text 



Combol .Clear 
TLMoveFlrst 

For 1 = 0 To T1 .RecordCount - 1 
Combol .Addltem T1 !Name 
TI.MoveNext 

Next 1 



Option 1 .Value = True 
Combol .Listlndex = 0 
Command2.Value = True 



iju j uji dUj t clij Option 1 uLuui. iju jjj a% 
jjjH Click 

: ^LUI 



Private Sub Option1_Click() 

MaskEdBoxl. Enabled = False 
MaskEdBox2. Enabled = False 
End Sub 



Private Sub Option2_Click() 

MaskEdBoxl. Enabled = True 
MaskEdBox2. Enabled = True 
End Sub 



. CheckBox ^ijso^l OptionButton zj>\^^\ U-i cA^^ . 

: Genral 



Dim MyCnt(1( 



(MyCnt(1 J (MyCnt(0 

Connnnand2 

OJJb ckMfl (j-^ d^lAjLMfl aj^ju^ 'iUljjJl ^ 



SQL = "select tb_product.*,tb_category.*,tb_factory.* fronn 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.nunnber and 
tb_product.factory=tb_factory.nunnber and 
tb_product.nanne="' & Connbol.Text"'" & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Lbl_nanne & - : Ipuji = T4.Fields("tb_product.nanne(" 
lbl_cate & " : ^yji" = T4.Fields("tb_category.nanne(" 
lbl_fact & " : = T4.Fields("tb_factory.nanne(" 



Ibl_prc & " : y^y = T4.Fields("price(" 
lbl_cnt & " : sj^^i = T4.Fields("count(" 

Dim num, i 

num = T4.Fields("tb_product.Number(" 
T4. Close 



. Sjj (jj jJi^' |» !il»jL.( I slLojv '^j^ (Si^ "^3 

Option 1 iojS : ^LUI ^3*JI 

Kind Jl 6* dUjj Num j o^-ii 

: ^IjJI J_^l Ji^'i . . . jl 4lL>- J Lf]j«j>- (> l.u5.o.i Loj 



For i = 0 To 1 

If Optioni .Value = True Then 

SQL = "select * from tb_sel_bay where product=" & num 
& " and kind=" & i 
Else 

SQL = "select * from tb_sel_bay where product=" & num 
& " and kind=" & i & " and date between#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & 
Format(MaskEdBox2.Text, "MM/DD/YYYY "#" & c 

End If 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



: ^ijji jijjL diijj i i«5 v--^ ^ i' * f^j MyCnt j i^ji^j 



If T4.RecordCount <> 0 Then 

T4. Move Last 

T4.MoveFirst 
End If 

MyCnt(i) = T4.RecordCount 



"iljjj L^jS cjUUjJI ^^y. ^'j^'j ' Jj-^^' L>i^-*i ^'j-?"' ' lH^'j-?"' (J-** ^^>-^ u'^'j 

jjj^i 0:;^ FlexGrid 



Private Sub FlexGrid(r As lnteger( 



MSFIexGrid 
MSFIexGrid 
MSFIexGrid 



MSFIexGri 
MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 



r).CIear 
r).Cols = 5 

r).Rows = MyCnt(r) + 1 

r).Row = 0 
r).Col = 0 
r).Text"^" = 

r).Col = 1 

r).Text"^j" = 

r).Col = 2 

r).Text"^jUji" = 

r).Col = 3 

r).Text"i^i" = 

r).Col = 4 

r).Text'>^i" = 



r).ColAI 
r).ColAI 
r).ColAI 
r).ColAI 
r).ColAI 



gnnnent(O) = 5 
gnnnent(1) - 5 
gnnnent(2) = 5 
gnnnent(3) = 5 
gnnnent(4) = 5 



MSFIexGrid(r).ColWidth(0) = 


500 


MSFIexGrid(r).ColWidth(1) = 


500 


MSFIexGrid(r).ColWidth(3) = 


1200 


End Sub 





FlexGrid (i( 



Put Data 



Private Sub Put_Data(r As lnteger( 
n = 0 

With l\/ISFIexGrid(r( 

For i = 0 To T4.RecordCount - 1 
n = n + 1 
Row = n 

. Col = 0 

Text = n 
. Col = 1 

Text = T4!Nunnber 
. Col = 2 
. Text = T4!Date 
. Col = 3 
. Text = T4!Count 
. Col = 4 

Text = T4!price 

T4. Move Next 
Next i 
End With 
End Sub 



Put_Data (i( 




T4.Close 




Next i 






Private Sub Connnnand1_Click() 




Unload Me 




End Sub 





« J II ti^l rtltf Aj}X Ciil^^i ^ progl9.zip bijUt r 




Label Connbo 

MSFIexGrld Jjj^^ ji 6:«j^i ^i^ j Uuf ^la^ 
. jMi^u dijj Unload Me y jj ' ^r^i 
i..^..o...u, . True MDIChlld 

. ^1^1 ^ Frnn_Report3 j Frnn_Report2 



. (jjjj^^i M5J Fornn_Load ^j^^ ijjJj l ^\^H\ LiaS j o'^ij 



^1.^.1 L jl 



Me.Width = 4800 




Me.Height = 3600 




Me.Left = ((MDIFormI .Width - 


Me.Width) /2( 


Me.Top = ((MDIFormI. Height 


-Me.Height)/ 2) -40 


IVIe.Show 




Combol .Clear 




T2.MoveFirst 




For i = 0 To T2.RecordCount - 


1 


Combol. Addltem T2!Name 




T2. Move Next 




Next i 




Combol .Listlndex = 0 





Ijul (jjj5uJl j (jjjjjiJI (jjj j3_^Ij t JjjjfcJI (jj^^Sju (j^L* Flex cijj^ (J"**^ ^y'-'^ 



Private Sub Flex 



MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 



0 

d1. Clear 
d1.Cols = 6 

dl.Rows = T4.RecordCount + 1 
dl.Row = 0 
dl.Col = 0 
dl.Text"^" = 

dl.Col = 1 

d1 .Textyi/ = 



ivioricAoi 


rl1 Pnl - 


- 9 


MSFIexGr 


HI Text' 




ivioricxoi 


rl1 Pnl - 
U 1 .OUI - 


- Q 

- O 


MSFIexGr 


HI Text' 




MSFIexGr 


dl.Col = 


= 4 


MSFIexGr 


dl.Text' 




MSFIexGr 


dl.Col = 


= 5 


MSFIexGr 


d1 Text'jj^i" = 



MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 

MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
End Sub 



d1 
d1 
d1 
d1 
d1 
d1 



ColAI 
ColAI 
ColAI 
ColAI 
ColAI 
ColAI 



gnnnent(O) = 5 
gnnnent(1) = 5 
gnment(2) = 3 
gnnnent(3) = 5 
gnnnent(4) = 5 
gnnnent(5) - 5 



d1.ColWidth(0) = 500 
d1.ColWidth(1) = 500 
d1.ColWidth(2)= 1500 
d1.ColWidth(3)= 1500 



^^j<-sw jf ^jjj |»j.>jLuii jLiii-i jjlc jikj (jjJij Combol Click ^jj^i Jjjv \ 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_product,tb_factory,tb_category where 
tb_product.category=tb_category.number and 
tb_product.factory=tb_factory. number and 
tb_factory.name="' & Combol Text"' " & 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



. ^yHi 5JU J Tb_Category ji Tb_Factory.nanne (> .i^^ji 



If T4.RecordCount = 0 Then 
Lbl_nanne & - : ^i- = Combol Text 

Ibl cnt& " T4.RecordCount 

lbl_Sta\5jU : iJUJI" = 

Flex 
Exit Sub 
End If 



till I J Flex 

Jj"^! JI |»j jji*-"^! J->>~JJ Jlflli'iL |»jAj ti«jj> t ci>'>l>w./ Jj^j 4JL>- J "il jaijjJI J.»j15j (jJ 



T4.MoveLast 
T4.MoveFirst 



Lbl_nanne & - : ^i- = Combol .Text 
lbl_cnt & " : ^1 ^Uu jj^" = T4. Record Count 

If T4.Fields("tb_category.view") = False Then 

lbl_sta\jjj^ : ubKii" = 

Else 

lbl_Sta\5jU : IIUJI" = 

End If 
Flex 



p 



( dUj jjji |»l i_ijj.>ui ) 4JL>JI (jj [jjSh ^jjJI C1a:>o ■'J^i j '•''-^ ■•■ u'^'i 



: i^yii Ijil^l LoS^ "U^lufLV JnjL^jj jUsjL^^I jlp^.hL |>jAj kill j jju 



Frnn_Wait.Show 

Frnn_Wait.ProgressBar1 .Max = T4.RecordCount 
Frnn_Wait.ProgressBar1.Min = 0 
Frnn_Wait.ProgressBar1 .Value = 0 



For i = 0 To T4.RecordCount - 1 

Frnn_Wait.ProgressBar1 .Value = 
Frnn_Wait.ProgressBar1 .Value + 1 

DoEvents 

MSFIexGridl.Row = i + 1 
MSFIexGridl.Col = 1 

MSFIexGridl.Text = T4.Fields("tb_product.Number(" 
MSFIexGridl.Col = 2 

MSFIexGridl.Text = T4.Fields("tb_product.nanne(" 
MSFIexGridl.Col = 3 

MSFIexGridl.Text = T4.Fields("tb_category.nanne(" 

MSFIexGridl.Col = 4 
MSFIexGridI .Text = T4!price 
MSFIexGridl.Col = 5 
MSFIexGridl.Text = T4.Fields("Count(" 

T4. Move Next 
Next i 



ii 



: ^Jju*( LaS^ i-jjujiil SjLcI ^ Jjjj>JJ k.;-AJjjj Sort (Jj*j 



MSFIexGridl.Col = 2 
MSFIexGrid1.Sort = 7 
MSFIexGridl.Col = 0 

For 1 = 0 To T4.RecordCount - 1 
MSFIexGridl.Row = 1 + 1 
MSFIexGridl.Text = 1 + 1 

Next 1 



T4. Close 
Unload Frm Wait 



. J^UUf >4 jNj>t iltLiijat ^ prog20.zip ^ijUt ijLTLb^ ^ 



^ ljjj.><j jjj L&PJ 4J |>J^ ^jIajlII 4aj>itj lJ^L> dila i.^'"^^ '^^J^ LaJ.><ju>u (jf 

(jl ^UjjJl |>J.><jLs^ dJjLo ^y^. ^ 'UiJjLdJll 4^jL>aJI ^LJi-iJ I ^j>,>uj ^-J^ "aSjJIiI Lo ^IJ^ ^^^ii 
dJjJ-) (j' ^yi a ju..)-) i.lu.><j 4-C I. Ji.iJ I ^ Clibujil UajJ j .>J jl c ^.^>;>^ 4^LA^ ^LjL Ij^^^^ 'l-l |>J£j 



(jj |>J.>Ju><Jll ^jju (jls }ssi3 CjiSjLo ^^^.^ lj><.olj^ u' J-'-^ *^ '■^^-^^^^ '-^J ^ IaSlAj 

>_<....i.tj J3J3L>^ (J-&<^ ■ ■ |3Jajl> Oj>>< I ^^^ulLjLI (j^J ^ >JllLul..jfL'>'^l jl CjUaJ3L>Jll 

. 4jjLuJI Cl)U a J a . V il JjJtl ioLc j ijj"' ijJLL.(j 

: S|j"il jLli-L |»5 1.^-1.0 J i cjIjjSJI (ji>jj«J Ctrl+T ^jis^ jajJI^ |»^ 

(Microsoft Chart Control 6.0(OLEDB 

) ^LJiiakjji ji-i, jjjo L^i diijj t sijSji ^va! j^i : Charttype i^^u^ 

. iiSj»j ( . . . X, Y jl (jjUici ji (_5 — jUjSii j_jjUj jI 
VtchChartType2dPie 

. ( jUj"^! ^J>\jj |»l ) JjJ->oJ (j'^ >*■ |3~<'^l (jj i_i jJ»-l 4jMj 

. jLuj u j5j Column j Row iij^l> 

Row 

RowCount 

. S (_5jL»u >.iAJJ>o l.^.l:i.t..Ji.'i.....J (j"^! |»l 

cjLxjjlII ^Lo^I ) LjjJ lis UIUo Jj t cjULuJI jlisUjJI ja£ jjjvjis ColUmn Lol 

JajuAj ljj . ( icLiuJI CjLjjLij |^LoJ»-l — icLAjJI CjLxjjlo |^LoJ>-I — CliUjjuiJI ^Lojvl — 

. ColunnnCount=4 

. |».;.o..^.ll I CjlSj (_><sul..jn.VJI JajuAju^ij 
jj ji-l j jjlj"^! si* t v-jjjjjLILj (Total (3 4iji..^.o j L^j-ao Jl ^^-^^^ u'^'j 

. NULL 



If Option 1 .Value = True Then 

SQL = "select sunn(count) as suml ,count(product) as 
cnt from tb_sel_bay where kind=0 - 

Else 

SQL = "select sunn(count) as suml ,count(product) as 
cnt from tb_sel_bay where kind=0 " & " and date 
between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") 
& "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY c 

End If 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

lfT4!cnt oOThen 

Total(O) = T4!sum1 
End If 
T4. Close 



. ^yd\^^^ -olljl L Null Lki. JMlI Lajl^ cj^bfwJI jac cy ^^'^ Li;! Jk3."i 

: ^■%u^'i\ iL>s>. j Kind 

If Option 1 .Value = True Then 

SQL = "select sum(count) as sum1 ,count(product) as 
cnt from tb_sel_bay where kind=1 - 

Else 

SQL = "select sum(count) as sum1 ,count(product) as 
cnt from tb_sel_bay where kind=1 " & " and date 
between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") 
& "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY c 

End If 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!cnt oOThen 

Total(1) = T4!sum1 
End If 
T4. Close 



MSFIexGrid(0).Col = 3 

For i = 1 To MSFIexGrid(0).Rows - 1 

MSFIexGrid(0).Row = i 

Total(2) = Total(2) + MSFIexGrid(0).Text 
Next i 



: 4^LAjJI diLyiJ^ 4u..><jJL jj*il ^J'>AJ^ 



MSFIexGrid(1).Col = 3 

For i = 1 To MSFIexGrid(1).Rows - 1 

MSFIexGrid(1).Row = i 

Total(3) = Total(3) + MSFIexGrid(1).Text 
Next i 



I_y3jy^i.\ I . _ n < A .. .. Index Aju^i^ ^ °SjLaju>/'^I JJjJ Lljl Lwj L CjULuJI Jj-^ ^^k. (j*^lj 



Dim str(3) As String 
str(0 "^UiJL, jios^r = ( 

str(1 "cjL)jjj« ^U:>-i" = ( 

Str(2"icLju CjUjjlo ^LoJ>-I" = ( 

Str(3"icLju cjLjjLio ^Loj»-l" = ( 



l\/ISChart2.ColumnCount = 4 
l\/ISChart2.RowCount = 1 



Date 

ColumnLabel j^u^ (> t,^*-;-^^^! Column s^-aiiKii j^u^ (> 



For i = 1 To 4 




MSChart2. Column = 1 




MSChart2.Data = Total(i - 


1( 


MSChart2. ColumnLabel = 


str(i - 1 ( 


Next 1 





. J II >f^l 4::tLAij4( ^ prog21.zip faijUt ii t tl h f ^^-d 



L^ijoai (ijJij ' fj-j^ MaskEdBoxl siji ^ s^iiji sis j ^ji ^b:>j l* 

: j^bji ^ Labels ji ^li^ Uul 



MDIChild=True 



Me.Width = 4800 
Me.Height = 4905 

Me.Left = ((M D I Form 1 .Width - Me.Width) / 2( 

IVIe.Top = ((iVIDIForml .Height - IVie.Height) / 2) - 40 
IVIe.Show 



: 5lj*^l J tLn-Mgoj ^jLj Jf-i..^.' 



Dim IVIyday, IVIymonth, IVIyyear 
IVIyday = Day(NoW( 

If Len(l\/lyday) = 1 Then IVIyday = 0 & Myday 
Mymonth = Month(NoW( 

If Len(Mymonth) = 1 Then Mymonth = 0 & Mymonth 
Myyear = Year(NoW( 

MaskEdBoxl .Text = Myday & 7" & Mymonth & 7" & 
Myyear 



Command2.Value = True 



Function 

: iiiji "^iji fj^j c WeekDay iiui jjj 



Private Function dayname(x As Date) As String 
End Function 



X = Weekday(x, vbSaturdayc 



: ^_^1jJI J5...tJL Jl |»i_^l lis JjjvJu^ (j'^lj 



Select Case x 
Case 1 
dayname "ouuji" = 

Case 2 
dayname "j^Sfi" = 

Case 3 
dayname "6^-^i" = 

Case 4 

dayname-.^MSji" = 

Case 5 

dayname'MvjSji" = 

Case 6 

daynamevy^i" = 
Case 7 
daynmae-ixo^i" = 

End Select 



. ( jju o^bJij Command2 jj ^^pj j ijuu o^ij 
: Genral ^jL^i j diljj Labels ji diUjLw l^js (jj->oj cjI^^jjlio ^jI Siji ijjAj 

Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As 
Integer 



a1 = 0: a2 = 0: a3 = 0: a4 = 0 



X = daynanne(MaskEdBox1 .Text( 
Lbl_day.Caption & - : ^^^i = x 



SQL = "select sunn(price) as prc,count(*) as cnt from 
tb_sel_bay where kind=0 and date=#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY"#" & c 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

If T4!cnt oOThen 

a1 = T4!cnt 

a2 = T4!prc 
End If 
T4. Close 



SQL = "select sunn(price) as prc,count(*) as cnt fronn 
tb_sel_bay where kind=1 and date=#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY"#" & c 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 



lfT4!cnt oOThen 

a3 = T4!cnt 

a4 = T4!prc 
End If 
T4. Close 



Ihl pnt1 Pantinn fir - 

lUI Ol IL 1 .V.>CI|JLIUI 1 OC 


II ..1 . . - " 

. A 4^1 CllUUXO — 


d 1 


Ibl_prc1 .Caption & - 




= a2 


lbl_cnt2.Caption & - 




= a3 


Ibl_prc2. Caption & - 




" = a4 



Index 

: iLLJI 



Flex1 




Flex2 






Private Sub Flexlo 




MSFIexGridl. Clear 




MSFIexGridl.Cols = 5 




MSFIexGridl. Rows = a1 + 1 





MSFIexGr 


dl.Row 


= 0 


MSFIexGr 


dl.Col = 


= 0 


MSFIexGr 


dl.Text' 


Cj " = 


MSFIexGr 


dl.Col = 


= 1 


MSFIexGr 


dl.Text' 


r^y' = 


MSFIexGr 


dl.Col = 


= 2 


MSFIexGr 


dl.Text' 




MSFIexGr 


dl.Col = 


= 3 


MSFIexGr 


d1 .Text"i«£ii" 


MSFIexGr 


dl.Col = 


= 4 


MSFIexGr 


dl.Text' 





MSFIexGridl. ColAlignment(O) = 5 



MSFIexGrid1.ColAlignment(1) = 5 
MSFIexGrid1.ColAlignment(2) = 5 
MSFIexGrid1.ColAlignment(3) = 5 
MSFIexGrid1.ColAlignment(4) = 5 

MSFIexGridl.ColWidth(O) = 500 
MSFIexGrid1.ColWidth(1) = 500 
MSFIexGrid1.ColWidth(2) = 1500 
MSFIexGrid1.ColWidth(3) = 1200 
End Sub 



Private Sub Flex2() 

MSFIexGrid2. Clear 
MSFIexGrid2.Cols = 5 
MSFIexGrid2.Rows = a3 + 1 



MSFIexGr 


d2.Row 


= 0 


MSFIexGr 


d2.Col = 


= 0 


MSFIexGr 


d2.Text' 


Cj " = 


MSFIexGr 


d2.Col = 


: 1 


MSFIexGr 


d2.Text' 




MSFIexGr 


d2.Col = 


■-2 


MSFIexGr 


d2.Text' 




MSFIexGr 


d2.Col = 


= 3 


MSFIexGr 


d2.Text"i«£ii" 


MSFIexGr 


d2.Col = 


= 4 


MSFIexGr 


d2.Text' 





MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 
MSFIexGri 



d2.ColAlignment(0) = 5 
d2.ColAlignment(1) = 5 
d2.ColAlignment(2) = 5 
d2.ColAlignment(3) = 5 
d2.ColAlignment(4) = 5 



MSFIexGrid2.ColWidth(0) = 


500 


MSFIexGrid2.ColWidth(1) = 


500 


MSFIexGrid2.ColWidth(2) = 


1500 


MSFIexGrid2.ColWidth(3) = 


1200 


End Sub 





: Put_Data2 3 Put_Data1 



SQL = "select * from tb_sel_bay where kind=0 and 
date=#" & Format(MaskEdBox1.Text, "MM/DD/YYYY & r 

"#" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Put_Data1 
T4. Close 

SQL = "select * from tb_sel_bay where kind=1 and 
date=#" & Format(MaskEdBox1 Text, "MM/DD/YYYY & c 

"#" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

Put_Data2 
T4. Close 



Put Data 

J T6 

: J_jjj_^l 

Public T6 As Recordset 



ja'^l (J.Slji '-^^ 



Private Sub Put_Data1() 
n = 0 

If T4.RecordCount <> 0 Then 

T4. Move Last 

T4.MoveFirst 
End If 

With MSFIexGridI 

For i = 0 To T4.RecordCount - 1 

n = n + 1 

Row = n 

. Col = 0 

Text = n 
. Col = 1 

Text = T4!Nunnber 
. Col = 2 

SQL = "select name from tb_product where number=" & 
T4!product 

Set T6 = D1.0penRecordset(SQL, dbOpenDynaset( 

Text = T6!Name 

T6.Close 
. Col = 3 

. Text = T4!Count 

. Col = 4 

Text = T4!price 

T4. Move Next 
Next i 
End With 
End Sub 



p 



Label2 MaskEdBox2 sbi 

11;^ ^ ' 1^ Visible=False 



^^Lol .±:lj* (> ^yv^i Jl ^ Frnn_Report4 

: ^ijji ji-iJL. dijjj I. (> liiiiiJi Connnnand2 



Case 0 

Unload Frnn_Report4 

Frnn_Report4.Show 
Case 1 

Unload Frnn_Report4 

Frnn_Report4.Show 

Frnn_Report4.MaskEdBox2.Visible = True 
Frnn_Report4.Label2. Visible = True 
Frm_Report4.Connnnand2.Left = 120 
Frm_Report4.Command2. Value = True 



Form Load 



ii 



m 



p 



MaskEdBox2.Text = MaskEdBoxl .Text 



If Label2.Visible = False Then 
X = daynanne(MaskEdBox1 .Text( 

Lbl_day.Caption & - : ^^^i (> = x 

Else 

Lbl_day.Caption" 
End If 



Between j^ui 'sljLxJll 4d^Lc ^Isu^l^ Sj^Llo jJ-^Cw-' ^ 



If Label2.Visible = False Then 

SQL = "select sunn(price) as prc,count(*) as cnt from 
tb_sel_bay where kind=0 and date=#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY"#" & c 

Else 

SQL = "select sunn(price) as prc,count(*) as cnt from 
tb_sel_bay where kind =0 and date between #" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & 
Format(MaskEdBox2.Text, "MM/DD/YYYY"#" & c 

End If 



Between ,isi,lji 



If Label2.Visible = False Then 



ii 



m 



p 



SQL = "select * from tb_sel_bay where kind=0 and 
date=#" & Format(MaskEdBox1 Text, "MM/DD/YYYY & c 

Else 

SQL = "select * from tb_sel_bay where kind=0 and date 
between #" & Format(MaskEdBox1.Text, "MM/DD/YYYY") 
& "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY c 

End If 



. Flex2 J Flex"! ^^y^^ cjI^^jjjliii : l^jL*- 

: Flex1 ^ui 



If Label2. Visible = True Then 
MSFIexGridl.Cols = 6 
MSFIexGridl.Col = 5 
MSFIexGridI .Text'^jLur = 

MSFIexGrid1.ColWidth(5) = 1200 
MSFIexGrid1.ColAlignment(5) = 5 
End If 



Flex2 ^ dijj^j 



Put_Data2 3Put_Data1 



For i = 0 To T4.RecordCount - 1 
n = n + 1 
Row = n 



ii 



. Col = 0 

Text = n 
. Col = 1 

Text = T4!Nunnber 
. Col = 2 

SQL = "select name from tb_product where number=" & 
T4!product 

Set T6 = D1.0penRecordset(SQL, dbOpenDynaset( 

Text = T6!Name 

T6.Close 
. Col = 3 

. Text = T4!Count 

. Col = 4 

Text = T4!price 

If Label2.Visible = True Then 
Col = 5 

Text = T4!Date 
End If 

T4. Move Next 
Next 1 



. Put_Data2 ^ U-ij 



If T1 .RecordCount = 0 Then 
MsgBox 

. " icUuVbExclamatlon + arable" 

Exit Sub 
End If 



p 



Select Case Index 
Case 0 

Unload Frnn_Report4 

Frnn_Report4.Show 
Case 1 

Unload Frnn_Report4 

Frnn_Report4.Show 

Frnn_Report4.MaskEdBox2.Visible = True 
Frnn_Report4.Label2. Visible = True 
Frm_Report4.Comnnand2.Left = 120 
Frm_Report4.Command2. Value = True 
Case 3 

End Select 



« JtiMfilH ^ x^yX CiLiA^i ^ prog22.zip t.^jU( AjUilut («J 




? DataReport oj^j i^ui ^ u 
. DataReport ^ j^loji ia^ ^ 



ii 



4i 



p 



ujp DataRreport 
. DataReport c Add 

. ^jiiii J jji ^i:^ ci;uuji : Repoii Headef 
. 4>A^ j5 ^ ^1 ^uLJi : Page Header 

Detailes 

. i*A^ >Tj5 ^ u : Page Footer 
. his y^y3]\ j i^A-a J ci^uLu : Report Footer 

cuLiLi J j\Jjd\ jiS- Control Box |»5j>J cjIjjI i^iLsJI (jjjj jjkJ oj-x (j^lj 

cjIjjSji i^y^^ L DataReport Tab vyj^ cii:><j AjjjjuJi dL<jj Jij^>^ 

: — jL-JI (> — 4JL1JI 

Pointer 



4;*- 



jJuJu (jiijj t CjULaII OJ^li i^jlc JjjJti ij^yi Sljl JjJ>ui : RptLabOl 

^^iijj. : RptText 

. diljj |»LiAll 4j1}5 LL*-"^ (_3jJiJU (jj-^j c JLill JjJU^ s-'iUjJI 

j»iji.v."...4iL ^.^o..^".! I cji^j ''^i I ^ \iun ij^M . jjjijiii j Bjy^ ^^3^ ' Rptlrpiago 

. ijj^i Load Picture 
. jj^i icLL : RptLine 

Line ji ji, Uul : RptShape 
RptFunction 



ii 



4i 



p m 

. dUj (ji^i^i ' Rptlable ci^ulu ji* 
DataReport 



DataReport2.Sections("Section2").Controls("l1").Caption = 
Lbl name 



. dilj 4jLi Loj (jljJ^^L |»5i.>uLll 4jij_^l i_fji->J L^-H} 

RptTextBox ji i^j ijus ^lui 
DataFields j DataMember 

. ijLSJll lift J <Li>jP k_jjlkll Ja>JI |»-<I j t ( L^IjI 

dus:*^ DataFields 

fullname ji» 
Set DataReportI .DataSource = Rs 

. ci.Lu*]i RptLable 
Op D/ Lias:. Lu y Mioi L sbSji si^ Caption 

RptFunction 

oA*. ^^jj ' fLfAii ls^' FucntionType s^iiji jMi^ (> 

J Slj"il ois |»jifcjL^ (jJj i RptTeXt J UiaL^I US' i^L>JI cjULJI Sj^li (j^Loi*- iajuA 



> vn 



i ft i ffi 



p 



jj diljJ t Ado ciiULu SjLeli L^ULuJ j.\.^.o5' Jjiii-u jjjUjJI sis ijL jS'jj Ijj^I 



Refrences ^ Project 
Microsoft Access ActiveX Data Object 2.5 Library 



: j_jJLjJl (JiL..tJ L l.o.g-;J5!.l (jjj^jJI 4_)la*j j»L>All |»J ijJJ 



Dim cn As ADODB. Connection 
Dim Rs As ADODB. Recordset 
Set cn = New ADODB. Connection 
Set Rs = New ADODB. Recordset 



: ^bji jiLiiL Connection String j-^ 



cn.Open "Provider=l\/licrosoft.Jet.OLEDB.4.0;" & "Data 
Sources" & Folder & "db1 .mdb;" & "Jet OLEDB:Database 
Password=" & PassWord- 



: ^ Connection String ^ msdn s^Uj dUsL^ 

http://msdn. microsoft.com/library/default. asp?url=/library/e 
nus/vbcon98/html/vbconmanagingjetodbcconnections.asp 

Connection ^li. ji <ulji j^i ji lui ^i vja ^ m ^i ^yi, 

Language Refernce ji j^l ^ii,! ji 8>T j dL^j ^String 



. ^ Sis^jAjLlI iLsUJI |»ljJ>oL.<l jMi- (jj 



ii 



> vv 



4i 



p 



. DataReport 



sql = "select * from tablel - 

Set Rs = cn.Execute(sql( 

Set DataReportI .DataSource = Rs 



DataReportI .Show 



DataReportI .PrintReport 



icUa jljj>- o'j*' Jj'ill jjLuijLJl J True Jio SusLi'ill ciiljjujjIjJl SiL^I dUSjjj 

DataReport2. PrintReport True 

^1 ^L*A-=ji tiJu. - Range 

Frnn Show j 

j\3]\ jiLiiL dUjj t L. ^uji DataReport 

. - luL Add (> 

4jIjj J j-fiaj •J^;^ Page Header ^.^\ j Jjjj>ji d^jLic ^^-i^w 

4jJLjLII ioLojIaII ' Rpt Labels ^juA ^^jlc L^^^^ jn^^ i^y^^ L A.>Jl^ 

. ^u*ji si^ Caption 



ii 



p 



. RptLabel v esf 

. ciiULuJI oj^LS (jj Ss-I jaJI ^^ic Jjjlxj ti jJI j^'^ll Ul . . . LoLoj cjuLS |».-ia]I Ijjsj 

u:i Caption s^ij^ (:>j Ulisj l RptTextBox jj^ji ^ ^ <u3 
- ^_^Ljji jj»aji dUjj L cjUlji j.\.^.o jjLxJi ^j>i^j L Data FiGld "U^La- l^^i^ 

tb_product.nunnber - tb_product.nanne - tb_factory.nanne - 
tb_category.nanne - Price - Count - Box_Count 

jl t (jjj^'^Il (2>* (_«JjL><J ^lio tijJjJI cJ-^ail (jjJJ' <J-*^'j ' jJ-*^ Font Jsuuiu |»3 LL»-'i 



. 6^Lji c^\:>H\ J ^ Jl BorderStyle j BackStyle 

: .asLiI (^jJI J5...t.JI "^Ij i ^ilj^Ljy o! ^^l^' J5...t.JI Jl J_^jJI JjL*. 



ii 



m 



0 . I . 1 . I . 2 ' I .3.1 .4.1 . 5 . I . 6 . I . 7 . I .8.1 ■ 3 . I . 10 ■ I ■ 11 . I . 12 . I .13 ■ I . 14 . I . 15 . I 

^ Report Header (5ectiQn4) 



^ Page Header (SectlonZ) 



# Detail (Section 1) 



4^1 



bof£_coit I price I ([ountj | tbJ.cate^o| tbj_fact|ory n^ne| ^b_pr|)duct.naine| tb_pr | 

4f Page Footer (Sections) 



'T I 'I 



^ Report Footer (Sections) 



;p% 



J UjkJijI US' Ljikll CjLu5L1I i_ftJ-iu (^1 'if 4jIJjJI J ' "^}^, (J^LiJl 'j->Jl J! U^'j 

: JjljjfcJIj cjUUxII oj^lS (jj cjUjLS^ i_4jjjtju ij^LiJI Jj"^! ^jj>JI 



Dim cn As ADODB. Connection 
Dinn Rs As ADODB. Recordset 
Set cn = New ADODB. Connection 
Set Rs = New ADODB. Recordset 



: jJjAIJJ CjULuJI j.\.^.oj c CjULuJI 5j.cUJ CjULuJI j.\.jao J^J.>o 



cn.Open "Provider=l\/licrosoft.Jet.OLEDB.4.0;" & "Data 
Source=" & Folder & "db1 .mdb;" & "Jet OLEDB:Database 
Password=" & PassWord 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_p rod u ct , tb_f a cto ry , t b_categ o ry wh e re 
tb_product.category=tb_category.nunnber and 
tb_product.factory=tb_factory. number" 

Set Rs = cn.Execute(SQL( 

Set DataReportI .DataSource = Rs 



DataReportI .Sections("Section2").Controls("label3").Capti 

(On = lnfo(2 

DataReportI .Sections("Section2").Controls("label4").Capti 
on & " : ^u" = lnfo(3( 



DataReportI .Show 

Set cn = Nothing 
Set Rs = Nothing 



. CjljjjuiLo jl Cjbujw Lol ^S>3 l^ind iLi^L^ ^ iSy^ p ^ ij; 

. ^.p-u jj^jji t3^' t5 J-* I— t Frm Reportl j 6^j!>" i— sj—* ijj 

Number - Date - Count - Price 



p 



(Connnnand3(1 j d^Uujj (Connnnand3(0 

: J\3l\ JiLilL SjbuJI 4l.>JL 



Dim cn As ADODB. Connection 

Dinn Rs As ADODB. Recordset 

Set cn = New ADODB. Connection 

cn.Open "Provider=l\/licrosoft.Jet.OLEDB.4.0;" & "Data 

Source=" & Folder & "db1 .mdb;" & "Jet OLEDB:Database 

Password=" & PassWord 

Set Rs = New ADODB. Recordset 



^1 dUj ^ jl « u Index ' ci^ulji 

^\3]\ LlaS (^ii=u~u LULa t diUjXiJlj cjUjjloJJ cjULJI oj^cli J Kind 4j^L>JI L^ilaj" 



Set Rs = cn.Execute(sql_now & " and kind=" & lndex( 
Set DataReport2.DataSource = Rs 



? sql_now ^ c>> 0^3 

Genral 



Dinn sql_now 



^LlILS^ ^z*^*^ J-S-iJI __)jj<ju»> jjijuLlI jj5^ (jj Jj"^! ijjfcJI 



ii 



4i 



p 



If Option 1 .Value = True Then 

sql = "select * fronn tb_sel_bay where product=" & nunn 
& " and kind=" & 1 

sql_now = "select * from tb_sel_bay where product=" & 
num 
Else 

sql = "select * from tb_sel_bay where product=" & num 
& " and kind=" & 1 & " and date between#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & 
Format(MaskEdBox2.Text, "MM/DD/YYYY"#" & c 

sql_now = "select * from tb_sel_bay where product=" & 
num & " and date between#" & Format(MaskEdBox1.Text, 
"MM/DD/YYYY") & "# and #" & Format(MaskEdBox2.Text, 
"MM/DD/YYYY"#" (fee- 
End If 



4_uujj3 Bjjy^.i jJjAjLII jL^JsL |>J^ ^ <■ Li.^;uJj ^^UiJ CjULuJI JaU^j i Jj5l]I 4j^ljJl Jjju 



DataReport2.Sections("Section2").Controls("l1").Caption 
Lbl_name 

DataReport2.Sections("Section2").Controls("l2").Caption 
lbl_cate 

DataReport2.Sections("Section2").Controls("l3").Caption 
Ibljact 

DataReport2.Sections("Section2").Controls("l4").Caption 
lbl_prc 

DataReport2.Sections("Section2").Controls("l5").Caption 
lbl_cnt 

Select Case Index 
Case 0 



DataReport2.Sections("Section2").Controls("label1").Capti 
Case 1 



DataReport2.Sections("Section2").Controls("label1").Capti 
End Select 

DataReport2.Sections("Section2").Controls("label3").Capti 
on = lnfo(2( 

DataReport2.Sections("Section2").Controls("label4").Capti 
on & " : ^u" = lnfo(3( 

DataReport2.Show 

Set cn = Nothing 
Set Rs = Nothing 



tb_sel_bay. number - name - date - tb_sel_bay.count - 

tb_Sel_bay. price 



CuLojIxIl tjhyCj i_3j~' l.g-'iSJj 8^o."i.>.i.o |^L>JI ^^AjJI ^ LaLI&^I 4>.i.o.VJ I ^jLlxJI Clibu^ ij^Sjj 

: 

Lo5 L uu ojAiii f.^ui^'^i iLoj^ i3jA sql_now isuj= 

. isAS J^lj |»f (2>j^jb |»'>UjL^'il Jj6 "iSjxl Liulj t ^jl^l "i3 ytl dt2 j dt1 



If Label2.Visible = False Then 

SQL = "select * from tb_sel_bay where kind=0 and 
date=#" & Format(MaskEdBox1 Text, "MM/DD/YYYY & c 

Else 

SQL = "select * fronn tb_sel_bay where kind=0 and date 
between #" & Format(MaskEdBox1.Text, "MM/DD/YYYY") 
& "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY c 

"#" & 

End If 



If Label2.Visible = False Then 

SQL = "select * from tb_sel_bay where kind=0 and 
date=#" & Format(MaskEdBox1 Text, "MM/DD/YYYY & c 

sql_now = "select tb_sel_bay.*,tb_product.* fronn 
tb_sel_bay,tb_product where date=#" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and 
tb_product.nunnber = tb_sel_bay.product" 

dt1 = MaskEdBoxLText 
typ = 0 
Else 

SQL = "select * from tb_sel_bay where kind=0 and date 
between #" & Format(MaskEdBox1.Text, "MM/DD/YYYY") 
& "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY c 

sql_now = "select tb_sel_bay.*,tb_product.* from 
tb_sel_bay,tb_product where date between #" & 
Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & 
Format(MaskEdBox2.Text, "MM/DD/YYYY") & "# and 
tb_product.number = tb_sel_bay.product" 

dt1 = MaskEdBoxLText 
dt2 = MaskEdBox2.Text 
typ = 1 
End If 



Private Sub Command3_Click(lndex As lnteger( 

Dim cn As ADODB. Connection 
Dim Rs As ADODB. Recordset 
Set cn = New ADODB. Connection 



> An 



cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data 

Source=" & Folder & "db1 .mdb;" & "Jet OLEDB:Database 

Password=" & PassWord 

Set Rs = New ADODB. Recordset 

Set Rs = cn.Execute(sql_now & " and kind=" & lndex( 

Set DataReportS.DataSource = Rs 

DataReport3.Sections("Section2").Controls("l1").Caption = 
Lbl_day 

DataReport3.Sections("Section2").Controls("l2").Caption = 
Ibl_cnt1 

DataReport3.Sections("Section2").Controls("l3").Caption = 
Ibl_cnt2 

DataReport3.Sections("Section2").Controls("l4").Caption = 
Ibl_prc1 

DataReport3.Sections("Section2").Controls("l5").Caption = 
Ibl_prc2 

Select Case Index 
Case 0 

If typ = 0 Then 



DataReport3.Sections("Section2").Controls("label1").Capti 

on & " d^bujii jijj" = dt1 

Else 



DataReport3.Sections("Section2").Controls("label1").Capti 

on Sl " c>H ^kw^i = dt1 & " J " & dt2 

End If 
Case 1 

If typ = 0 Then 



DataReport3.Sections("Section2").Controls("label1").Capti 

on & " ^Ljijji = dt1 

Else 



DataReport3.Sections("Section2").Controls("label1").Capti 

on 8l " c>H ^bji^i jjjii" = dt1 & " J " & dt2 

End If 
End Select 

DataReport3.Sections("Section2").Controls("label3").Capti 
on = lnfo(2( 

DataReport3.Sections("Section2").Controls("label4").Capti 
on & " : ^u" = lnfo(3( 

DataReport3.Show 

Set cn = Nothing 
Set Rs = Nothing 
End Sub 



. 4^Ljj3jl JjS^ 4^la5J i^'.'vjJ I <LJ^Lj^ ^yu^ JH'^ Uj-^ (Jj*^' 4^Lj^L LoLoj 'L^-;.'...Ti <LJ^Lj5 (J'^^ ^.^^ 

Lo5 4JL>JI ^'%>3^'i\ iLojv (ji>jj«J SC|I now (> J5 isLsL |»jAj (_ij~< icLLII LlaS Jji 

a1,a2,a3 
: Search iiui j dUjj 



ii 



4i 



sql_now = SQL 
a1 = ComboLText 
a2 = Combo2.Text 
a3 = Text1 .Text 



: cjULjJI oj^cLaj jL=u"il ijljJI Jj t ijlJiSJ Jsiijj (j'^lj 



If sql_now = "" Then Exit Sub 

Dim cn As ADODB. Connection 

Dim Rs As ADODB. Recordset 

Set cn = New ADODB. Connection 

cn.Open "Provider=l\/licrosoft.Jet.OLEDB.4.0;" & "Data 

Source=" & Folder & "db1 .mdb;" & "Jet OLEDB:Database 

Password=" & PassWord 

Set Rs = New ADODB. Recordset 

Set Rs = cn.Execute(sql_noW( 

Set DataReport4.DataSource = Rs 



DataReport4.Sections("Section2").Controls("label3").Capti 
on = lnfo(2( 

DataReport4.Sections("Section2").Controls("label4").Capti 
on & " : ^u" = lnfo(3( 

DataReport4.Sections("Section2").Controls("label1").Capti 

on & " ) xSLiu .±0^1 pSLi;" = a1 & a2 & a3"( " & 



DataReport4.Show 

Set cn = Nothing 
Set Rs = Nothing 



. J II >f^l A^yX CiLa^^i ^ prog24.zip ^ijUt t tl h < ^^-d 



SisjJil SiLilj ^Lj_^l s-IjI 



Visual Basic 6.0 



. Jjjl^ ^ 1) ^ I ; 

exe ^^A^ J\ ^b^l 

Setup aJ-c^ J-c^ 



StatusBar 

StatusBar 

. Panels ^lui v^i^^i Custem jii^i sbSii sjj» ji^b ^ujkIi 
. ia^^iijA (> ^j^j 4iu":i Remove Panel j Insert Panel ^T-^j a>o 

. ^-^^Jl lift J j-g-bj cijJl (>=uJl J-jJ->aJ : Text 

. s^j^i ji-b sbL>^ jjj^ : Alignment 
jLjii^i c Text L^LiJL jj^i v±:u* text js. L^ijisi : Style 

Beval 
AutoSIze 

: i!L>Jlix)jJ< Ji>-b iJljJI j.^1JiaJI i_ij..Aju»« 

. jjJI 4jaA j^jic Ijjlj 'j-^J' '-i-* ijj^-J.'-' 

. Style 



Key 

. ^y]\ jjjej}] JjA-iu iit 

. ( ljlL<lj ) ^jJjSi'il JjjjJI Ij^'^j S: 

(_V<aAj jijJ ^Ujj t JaA3 ^..-lo.^- JjI jLuLa-l ^^^jic j ^! a1>.< IjJ t (j^ajJI JjLS^ jLuLi-l ^yJajL^' 



Private Sub StatusBar1_PanelClick(ByVal Panel As 
MSComctlLib.Panel( 

Select Case Left(Panel, 5( 

Case' 

Refresh_St 
Case" I ij^jS'" 

If T1 .RecordCount = 0 Then 

MSQBOX — AiLal jli-l SjjJJ>- icLiu ~i3Ljsi L L^JlC _)Uj jaJ (^1-^ (il -i^^JJ 

uivbExclamation + arable" 

Exit Sub 
End If 

Unload Frnn_Report4 
Frnn_Report4.Show 
Case" jjjLij" 

Frm_Calc.Width = 3105 
Frm_Calc.Height = 2640 
Frnn_Calc.Top = 0 
Frm_Calc.Left = 0 
Frm Calc.Show 



Case- dLj" 
If T1 .RecordCount = 0 Then 

MsqBoX — 'isLsl jii-l Sjjjj>- 'is-Liu 'isLo'i L <±jj>^ s?' 

uivbExclamation + arabic 

Exit Sub 
End If 

Frnn_Find.Show 
Frnn_Find.Text1.Text = 0 
Frnn_Find.Connbo1 .Listlndex = 3 
Frnn_Find.Connbo2.Listlndex = 2 
Frnn_Find.Connnnand2. Value = True 
Case "Hamma" 

Shell "explorer nnailto:Hannnnada2091 ©Hotmail. com " 

End Select 
End Sub 



: i±AjJ.>uJI ys\ j Lol 



Private Sub Refresh_St() 

SQL = "select count(*) as cnt from tb_product" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

StatusBarl .Panels(3).Text & - ^uji jj^- = T4!cnt"i£Uu - & 

T4. Close 

SQL = "select count(*) as cnt from tb_product where 
count=0" 

Set T4 = D1.0penRecordset(SQL, dbOpenDynaset( 

StatusBarl .Panels(4).Text & " dLj" = T4!cnt" & 

T4. Close 
End Sub 



Index 



Select Case Panel. Index 



Toolbar sbi « 

jiS^I ^ j»J.>a*4U oljSfl oiAj t Jajj^l J jj-^aJI oijjJ obSll si* |»ji>OL»u : iRHaQeLISt oljf -» 

. L^i^ljj jj-sJI (J^jaJ (^j^i Bbl (jj 

. a 
. ilj^ a- 

• « 

. 4ju-<L»- ill s- 

• tr^ * 



p m 

(> CustoiTi ^iuLi.ij t uj^jl^ ^ ijj t Imagelist siji 

. Insert Picture 

. Custom jii^ij t Toolbar luijji sbSii jj^ o^^i 

. imagellstl ujbf ^j,^ ^^iki^ : Image List » 
. ju.Sji iJMs (> jjjkj : Style J Appearance » 
. Sj^i 2^ ^1 sb>ji : TextAligment * 

: jj, u jjj^ Buttons ^mi vyj^i Jj 
Caption Inseret Button 

. ^jUi jJlc (iiii jLiij ToolTipText 
. j^ji jiji jjjo Style 

t iajLS j.^J=u jj Y Ul t jLiJi^l L>^. ^ 6^ S?"^*^ -jj * t^^'j^"^' "^^^ 

. iihijij (j^jj sju "bi^ Separator j=l>- r j 
iftjLJi UjIji |»5jJi t jj j.^ ^ j-f^ t^-^' jj^' Image 4_i.^L>- Liul 

. ImageList 

. Jj5JI Luic ^^"^-3 ^ '^Ij.i'^l ixi^yJD p.;.a..^." Jn.t..^.' j*.^^ (JS...TiJ I Ij..^ 



Private Sub Toolbar1_ButtonClick(ByVal Button As 
MSComctlLib.Buttonc 



> 1 V 



i ft i ffi 



Button 

: ^ui ji^L Select 4ioj>. dll^J 



Select Case Button 

Case"^jj^" 



Chng_pass 



: ^IjJI J5...tiJL i_3j~< ^l-o->-l 



Private Sub Toolbar1_ButtonClick(ByVal Button As 
MSConnctlLib.Buttonc 

Select Case Button 

Case"^jj^" 

Dim sure 

sure = MsgBox ^ "? ^u^i .l^i j^^bju >")VbExclannation + 

vbYesNo + arabiC("^j>ji j^b- . 

If sure = vbYes Then End 
Case' 

AboutMe.Show 1 
Case 

Call Chng_pass 
Case"^«*j" 

Copy_Me 
Case"L^u ill" 

Frm_Calc.Width = 3105 
Frnn_Calc.Height = 2640 
Frnn_Calc.Top = 0 
Frnn Calc.Left = 0 



Frnn_Calc.Show 






Case"^" 






If T1 .RecordCount = 0 Then 






MSQBOX — SiLiI jjs>-\ OJjJj»- icLaj IsLs'i l i±a:>JJ til ■ 










Pvif Qi ih 
tXIl OUD 






PnrI If 






Frm Find. Show 






Case">jL)" 






If T1 RonnrrlOni int — 0 Thon 
M 1 1 .rxcUUI UOUUI 11 — U 1 llcil 






M^nRnx i^l^i — i^l^i swi^ i_cLa. i^laM 






1 . ^ vol o m ofi/^n -1- orol^io" n • ti • ' 
L ^LcLiuVIJCAUIciri IdllUil drdUlU ^LajJI 






LXIl oUD 






End If 






Frm_Sel_Bay.Lbl_nanne. Caption-^ 


SJjuC SiLiI" = 




rrm oei Day.rxcTresn ivie 






Frm Sel Bay. Show 1 






Case"5-i yii" 






If T1 RonnrrlOni int — 0 Thon 
M 1 1 .rxcUUI UOUUI 11 — U 1 llcil 






MSQBoX SiL^I — 4jL^I ojjj^ 2 cl ,A . SiL^"^ 






t 4^L^vDtxciarnaiion + araoic ^LaJi ^^.^^ 






LXIl oUD 






End If 






Frm_Sel_Bay.Lbl_name. Caption-. 






rrm oei Day.Keiresn ivie 






Frm Sel Bay.Show 1 












If T1 .RecordCount = 0 Then 






MsqBoX — SiLiI jii-l ojjjj>- icLiu SiLi'i t 


^jLflj (_>i>jj«J ^LAj 




. "IpUu isuivbExclamation + arabic^uji 






Exit Sub 






End If 






Unload Frm_Report4 







Frnn_Report4.Show 












If T1 .RecordCount = 0 Then 






MSQBOX 4iLil — SiLiI jli-l OJjJJ»- icLiu 






"j-i • \/hFYplamation + arahip" »i • i 

1. <LeLiuV U^AUIdl 1 IdLIUI 1 ■ dl dUlO ^LiuJ 






Exit Sub 






End If 






Frnn_Report1 .Show 






C 3 s e " (_><3j£ " 






If T1 .RecordCount = 0 Then 






MS9BOX IsLol - 'isLol jli-l SjjJJ*- Is.Loj 






"j-i • \/hFYplamatir»n + arahip" ^^i • i 

L 4.£LiuV U^AOIdl 1 IdLIUI 1 ■ dIdUlO ^LiuJ 






Exit Sub 






End If 






Frnn_Show.Show 






End Select 






End Sub 







Index 

. ^Lj^l s-jj jjL* cjLjJjlC (jj |»j Lo L^ ^LjjjJI (jj 4iv.jj j^' L^j"^' 

J II tnl fl7 1( 'HJ^ CiLa^^i ^ programme.zip > a f tl iuLiQaidr (9-d 

Frnn Edit SP ^ 




jijLO jl 4.>>wjl 4.o.>^ CjULu ij^U ^ J^buJI 4JL>- Lljl *i| 1. UaI^I \^ }s^^m OiSjLo 
. ( iL^I — iiiLral ) jljjl kij-aoJI j |»5i.>aJL (j^L>Jlj k±j.>aJI i^Li (jj (JjixJI tjJjJL 

. 4jjb«JI 4-i>LiJI j jjjj-jll jj~Jlj jjj.>aJI cjLxjjj ijiLsJI bIa j 



a(x),b(x),c(X( 




: j G©nral ci>L>jj-iajLii j l^jaJj 


Dim a(),b(),C() 




DimX 




jjFornn_Load : 




X=0 





a(x) = Combol Text 

If a(x "i^L^i = (Then a(x) = "product.nanne' 



b(x) = Combo2.Text 
c(x) = Text1 .Text 

X=X+1 



SQL = "select tb_product.*,tb_category.*,tb_factory.* from 
tb_product,tb_factory,tb_category where 
tb_product.category=tb_category.nunnber and 
tb_product.factory=tb_factory.nunnber" 

For 1 = 0 To X-1 

sql = sql & " and " & a(x) & b(x) & c(X( 
Next 1 



. Lajj^ LaS^ A^jJIxll cijL>uJI ^^''^ L>^j^ '"^^^j 
. cjIjjjUo j L^lijl (jjjiJj t tfji-"^! jJj Sj^lj Sj^IaJI j LajL^I k_>jikll cjLJjjJI AiLil js 



JjSfl IAas- i_AJ-iu dLuj> L ^ SjIac SiLiI "Lili, ^ jLlc'il LULSloL JjSlI ilL>JI J 

. ( isLal ) 



if 3="" then 
3 = Number 
else 

3 = 3 & "," & Number 
end if 



. 4iLAii ^jy> Number jLici ^ diijj 

Split 



b = split(3( 



: j^jAjLU L^JidLslj aa^oA j Jl ^ 4_>jIJLII sj^jj>JI 4ij.ft.^.l I j^llc ^^^Ic ^IjjjJI |>j 



for i = 0 to UPBount(b( 



|>J.>JL.<Jll LaAJJ.>o (2>:i.>Ojlj jl |>_^l ''-'V^i^ CIiLIaC l.g-jj <L^L^ 4j ^j^jaj AiL^isJI sjjt ^ 

^joytj List ^^yi ^3*^ !^lioi t SjjJJall CjLiioAJI SiLiI JjJJjJI (_jJ-* jaUI J!>L>- (jj ^^jJajLwajj i 



MsFlexrid1.Cols=1 

List1. Add Item MSFIexGridI Text 



Many 

. 4jioj«JI sla Jl 'isLoll cjLoiJIj (^-JsaJI AiLaL j»_jAj vIjjj*- aJjaJI |aij il^^jj ( To One 

. dlcjj-ii iju^LllI iflj^^l jL»jL>-l 

CjUIdixJI (jJuuJ Cliljl.^.'i.V'l l-'A. J' I Lljl >Jl>JJk.jJ 4_i..»iajjJI <LJ5L^I (J.A>^I 4JL>JI Isjj^ ^ Cj^ikj jJ 

. Ij£aj ( « 4jjiJI |_jlll ^Laxll ) Jio 4JIJJ-JI 

. Lcjj^ cjLLojJI y£] L^l jLuLcl 

-^J ^ 4..^L> Amj^ ioLiJ.ol£ JjJ.><j |>J.>a>.><.oJJ '^^-^1^ i_3y>.>^l ^.o..^.! I ^1 *^l 

Back 



j |».1.V."....JI lS^' |»!>L»ju.("il (Jj^ ijjsyoj 4_t3 ijhyu SjJSf- JjJ^ SiL^I l.'i.'tS.o.; 

ijj^i (jj i^l~<Jl (jJjjJI ^AjjIj (_>*>Ajij d L'' S.o. i : 4j3L>-!>Lo a 



jJjAjLII 4^Li 4J J ^ h'l (jl jJjiS I. jJjAjLII jJ Jj_)J Lo jlp^.hl 4jj^ |».1.V.'i....J I |_ji'-'<j o' 

"if |>l Sjj^l (j^jjJ TrU©,f3lS© (jj->jJ t i_«Jil ciiLojJjMj j««JI 'LoIS^ oj-*^ '-*^ ciiULuJI Sj^li 



V . a 



i^^a^ •^•^■^ ^—^3^ '^^J '• 4^j>^l jJJ-o ^ (j^o ^ ^gJI ^ i3.>JI ^j>>Jj 

. 

(j£ (2>:JjJ.>a»»^il J|J««< O^J-*^ '^^^ o'^J J':)-'-*^ iSj-^JI J| Jjjy ijl^ j^L»JI j 

. L&S^ dlo.;.a..^."i.» pS-'V.'i.lJ ^U^l 

Word 

. 4JL>JI JajjJi jj-^Ji — CjIjJ"^! Jsjj^ jJ) ^ — (j^sjJI (jj^ — j'jj"*^' '-'J^ — 4jaL>JI (jjJ 

. Start 



. iS>-\s, CjULj "Sj^li ^jlg L>jjJ.>J>>JI 

sofli j Jj^jJl ^'"''^J '' '^'-^^j ' (jjjj3-jL^I ^Lo^L Jjjj>- AiLsl |3JL) 4JL>JI t'sn j 

True-False j^^i^ji 

is l-'i.\5i.aA3 I. |»Ul j~3j«JI 4iLiL j~3j«JI CjLLjJI XiS>3 Uj>-"^ l.'u5.o.i 

. ijjljJI i-AoJU |»L3 (jjj t Jj"^! icLojJI SiLib |»l3 (jj 



p 



Jj5j ^Lj_^l (jj 4jj>-jL>JI i^iLsJI J Sjjjj>- Sj^li SiLil 'L^jh ^Ix; jl a:><j 4JL>JI ola J 
. BjS^ jj jL>jJI ^ij^ Lo \1» (j5Jj t IjjajC jjiS^"^! (3j^' 6^ '^'-iAj 



(jj 5 - ; ....i Lji:>voLj^ j jLill JjJi~( ^^J-*3 ' CliLvjjJjJI (jAxj 

. 4-;.oS L^Jlo ^ ^L^suJI (_v^jaJ c1jl>uJI |>Ij.>vIu>/I 4uA^ 4.ftjliu JoJkJI 

ij£' CjLojJju 4_iJI l L^-iu (J^bijL) i^JuS^ i^J.>3 JS J-S^L^I 4J "^J^^ 

. o_^ljj ^Ij"-!! (jj ^^J"^! J->J'^ jL^^I 



. J II >f>l rt^tf 4::tL&ij^( ^ help.zip faijUt ii t tl h < ^ 



ii 



jJtj I jjjjujjl ^ Jn.i»..Al I J ^^-o-' ^oU^I (Jax>J^ 4J (Ji.5-; 6X6 jIjjLoL UI.9 4_d j .iCl>.< dltl J.^ 

ijAj t Mak6 Proj6ct1 .6X6 jUii^b ^ dL^ Ji^>ai]i j Fil6 

. iAs- yiib ^'-^h ( Option 

Rivision ^ Minor ^ . IVIajor ^^^i isms jj ^uji j 

^Lui ul t Visual Basic 6 j Visual Basic 5 

^ Winzip 8.1 J Winzip 8 ^^u^^ a>j ^^l^* iji-jiLJi ^%,jjui\ 

^ Ui < . ■ « 

IjlS ^, * ; * U-^ljjiSl (jj5.;....i LL>jLj^ (Jj t dUj jJ^J CjLuJ.>aJl JjLo I^_)JJJ«J ^jj^"^! LoI 

4jaj.«aj 4iL.3l LjLiil jl 4l5-iu LlSjIaj Ijl LoI t ^IjJI |»5jJI ^^JAJuaS OJjJJf- jjj\jUj tii:>ULLI h^j^i 

. djJLjJI 

^LjJI ^ t—uiL' ^ 4jl)^^AjI jL>jl>Ij <. Sj.X>3 dijLo >_i.ljp.; (_3j~< 4^Lj^l B^A >_juL>o 

. Ijij i-aLaJI Sjjlf'^l jLjl>Jj ( 



. La J (^^'^ ' 
till I a Option 

. Compile To NativeCode j Compile To P_Code 

Compile To P_Code 

. !-U3L>-S!l ^ 4.jAS\y jJ^lj LfcSc*- 4jL jJJJJj t Lftjjijj JjiS P Code Jl L^jJ>jj 

Compile To NativeCode 

^ >ij ^ ifiiiii ^LkLji ji jjUo (iiiij Optimize for ast Code 
^ >^ (ijjij Optimize for Small Code j^^ui ^ js. l ^s^^i 
U5 t ^"^1 ^ jjj^ (.ji. !>L3 No Optimize jLiJi ul ... ic^i v"-^ 

j dljaAJ till 1 5 (Favor Pentium Pro(tm ^L^-ii U 

Create Sympolic jLai^"ii uf t ^ ^ iji i^l^i ^llo*]i 

L ia*"^ ^>jaiiii i^Ls:*"^ i-sji c_iui Debug Info 

: Advanced Optimizations 

c Optimization 

Assume No Aliasing 
. Aliasing 

-ijyL^ Index ji>aji : Remove Array Bound Check 



.LsjSfi ^1^1 (> j5bji : Remove Floating Point Error Checks 

. \ Y-^ \ • .s- Y jl 0^ ^ « s> Y -J Jiw t/JI i*jUJI lo^bJI cjI j 

: Allow Unrounded Floating Point Operations 

J jjjoji ijijb ^jiij : Remove Safe Pentium(TM) FDIV Checks 

. FDIV 
FDIV 

http://www.trnicely.net/pentbug/pentbug.html 



. Compile ^ jii^j ^ ^i^^i 



Visual Basic 

(jjjjJI j 4-oJxi.L./ Lo jAj t ^LjjjJJ Setup (JjAj |»^^ Oj-^^"^! j^^Lc ^UjjJI 



Setup d J g r 



. ^LjjjJI (jLSLo 4A>Jil loliill ^ ^UjjJI ^ diULuJI oj^li Jij (jj ^L»l^ 

Package 

. iJ':!-^'-^J Jjj^ CjLoISj c >_tJJpJI (J-;.»...ti." ijLflj ^Jj.ol'VjJJ <LoJ^jLo 4_>ui^j i_ju5Jll 

j^^ij Package & Deployment Wizerd 

. Microsoft Visual Basic 6.0 Ol>J dl...u.» JljJ>uiJI 

l.^".o JAj ^ Llo i_<JJ:'." <Lj2>Li UJ J ^ 1^" ^UjjJl J.jA.Ja? JjJ><^j I. ^UjjJl IjA (J-a^^ Ijjuu^ u'^'j 

Browse JaxJu dJUiAj t "(J Setup Jj^C Sjjj (jjJI ^LjjjJI jL« 

. Package ^^ic jajL^ju |»jAj |»j . ll (_vs>l>ji 

<L»wulII 3 '^■^ j' eXe <L>wu JJ>o |J Ijli c LaUx^j ^^I 4..>'...<jJI (j^3J><ij ^IJ_^I |>^^ 

Compiling j^^ ji sju^i dii* exe iJl c>^ 

dJLia (jiu |j Ijl Loi L L^\j.>3^i j 't^j-' exe 43v^ jL.u ^^-^j ji 4^i->ji exe a.>-..^ 

. U\J}\ 0_jkiJJ JfllliJ 

jUla-'^l jl i 4ajL.( CjljJai- |»lj.>JL.(l j '-^^J-*^ 1^! '-'^ dUl~o i_3j~< 4jJ1jJI SjJaiJI j 

jj5i ^UjJi Setup jj^ ub. J ii-^LiJi None 



. None jLjl>o LuJjlo 

^iii Package 

. Standerd Setup Package 

Network 

. JjJk'jj jL»u 3 ' ^^'^^^ ll>:H i_3j~*3 JjJfcjj 

Jl di>^ljjj >_JJn.".; CjliJil 4iLiL LuUJj >iI-<JJ J|jj>ja1I ^yu i_3j-.( ijiLsJI sift j 

liljJ.g (jj5-i....' 4JI LoS^ ^ JjJ.>aJI 4jljl i3:>_^ il>g L^-lo 4_>-Ljl>J Lo ^UJI ^x^jJauu^uj L 4^UJI iJA 

jljL>oj 4-JiLiJI Ji~/I (jj All Files jLjLio |»j Add jj Jajl-aj i±ajj>- diLjUjJI OJ^LS diliio ;:t 

. u*^u^ ^ Help.rtf 

dll f.L^I ci^ULoj OCX d^ljjSJl « 

. i"eg (_5 jji-swu jj I diiiio is 

jifli:"^! jijij db1 .mdb j Help.rtf ^La3 u^jU^ j 4^10^ u siui j^^j 

. Next ijui B_jkiKU 

|»l ^iA>^ (2>* ^^JajJI t>=uv Ji^lj tjio Jj»j 'IJVuJa JjJ->j' >ilio V'^-K; iJLjJI SjJa^l j 

Disks 



djuj> t ^1^1 Loj\3 J ^LjjjJI jJ-fJs J^!-'-*^' ^■^^ c- 'J J j -w k±Ajj> i 4jJLjLII SjJaiJJ JajuJ (j'^lj 

^ CjL&jLuJI i_&Lo 4iL^L |>^^ dUj 4^jJk^j (, BJjJSf- A^^aSf^ jl J^J^ j..^.'i.g 4iL^I ^yJajL^i 

osjj ^1 jjSii sjLiJi J c_«5_jj i New Item ^3 ^i^laji jMi^ (> ^u^i 

. Propertires ^3 j^lj^i jmj^ 

^^^j Ja^!>U3 t jL.^->- Sjj.>JI cjLjj5Jll j^-^j (j^Ul jj.>o 4jJIjLII "LiLiJI j 

L Fonts c AppPath ^u^ji ^Lu. j d^LoJxJij ^ulji ojjjis ci^ul 

. ciijji iji L»_^jjjij ^J j jLoJj l System j |»Uaiii ciiUjSjj 

Next 

jj«jL.<jj L Lft^jp J ja jjaij I JjLo l^ij.>ul.(I ^IjjJj (jftaj ciiiiio Shafecl Flles 

. 4ajL.( dlii^j .iU.;.»...ti." ciiLLoc J!>L>- j dilj ciaISl*-'^ >tiUJj . I ^ o,.^ (^j^l ■'J^J 

. dj>jLj^ Setup Jj^ j5 u.>^ lisiaj Finish ^^ia^jju |»5 i^^jj*-! 

JjuC jL>j j ^1^1 (jj LaA (j:)j>jLj_jj Jl jj-jiL»> Setup Jj£ (2>* Lju.(jj j 

Install ^u^j Setup Factory u . dLu^ Ji^>ai]i Setup 

. Shild 

L install ^Ijjlj jjjj ciiU5 SiLal t 4i'>L>.j ^-jjUj iJljlj (^jjIjic ^^-^jj (JjjLjjjojJI j Jjj>wjLII 

j;i>.<ijLl Aj (j^L>- EnQine ^^^l^ Ul^Jlo (^y.>^ '•^^-'■ir^ ^-W^ ^-^^t^Ji HjImIju <LlaS^ 4_>-ljl 



Jl JjjJ <u«j^j«JI iiL^I (j"^ i 4.l5...tJ I o'x^ J-oL^ •J-?"^; ' 4Jj^g....i.t 

I ij^i ' -t^i lt^i Compiling 
^1 ii,^ dLoj (> net. 

1. 4jioj«JI 

^ Oj ti'i. ci (I aJ^^LxJI (j^j t ^jjdl J?l^!.>JJ >oL>jiAjj diLSj^^l (j^aju LaSj 

, O^o j ...*i.o Oj^ ^ j twjjj^j 

Genral Pub! 

d)jJ Ll«j k—JJaj (jl >il.''5.o.;j t ^^^jjlJ>JJ 4j |J^L>JI SOUTC© COCI© Jl ^ dL><jLj_^ jr^yi 

jjjJaj (J-x-^^J Lo-o (^j->-l L)l3^ isLrilj "Uic Jjjjilll (jSLoj i ^U^l ^ Jj5JI s-LLlcI Jaj-io (jSJ 
(jl JjL>o L^aivi JJjo (jjj t JJ^Ij dlL>- (*:}«^. ilAs (jJ ' ^J^'l ^^J^' 

(jj Liul Unix iljU BL;>o"il lia ^yJiJU ^^1 J.:U<-iijJl j>J=u (jJ . JL^ (jl dL^jUjj 4jU^ 

(JjLo s^j.g...tiji ^ijjji (jjj . PHP J Java ^l^jji ii* j (_jj'Ji "^-^^^^^^ji i^Lii 

FireFox jIVIozilla 

. <ljl^^|»»>'^l JL>jl J J>>v«J LjjL&Ij W-AAttf U uJI JaiAj 

. 4^)1 ^L^ (jl 4.l...>i.l.>J I BOA j LL.<JjJ |>Ijl>- jJ» (_A;}&>JI ^j^jII IIa (jj5-i.>.i 

. AUTORUN.INF 

: ili-ljj (jjjJauJI (jjia L NotePad 











[autoruD] 






open=Setup.exe 






. Setup. 6X6 jLjj j .^[jjjil ^ 1..^3vw.<jlj 












wL3 J^r^ ' '^'^ m^giJ) ^ ^1 J.^^J {ji^mi )j.)g»T 






. CAJ jjjSsj ^ j^jUJI ^jj>Jl J ^UUl 
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